MEMORANDUM 
RM-4320-PR 

FEBRUARY 1965 



LIPL: LINEAR INFORMATION 
PROCESSING LANGUAGE 

Robert Dupchak 



PREPARED FOR: 

UNITED STATES AIR FORCE PROJECT RAND 



R-pnD 



*7& rS~ri I I YJ (Z&ifr&iaXcoK 

SANTA MONICA • CALIFORNIA 



MEMORANDUM 
RM-4320-PR 

FEBRUARY 1965 



LIPL: LINEAR INFORMATION 
PROCESSING LANGUAGE 

Robert Dupchak 



This research is sponsored by the United States Air Force under Project RAND— Con- 
tract No. AF 49 (638) -700 monitored by the Directorate of Development Plans, Deputy 
Chief of Staff, Research and Development, Hq USAF. Views or conclusions contained 
in this Memorandum should not be interpreted as representing the official opinion or 
policy of the United States Air Force. 

DDC AVAILABILITY NOTICE 

Qualified requesters may obtain copies of this report from the Defense Documentation 

Center (DDC). 



MI1D 



H&e rS"H I I \J @wifi&ULti6H 



CALIFORNIA ■ 



•11- 



Published by The Rand Corporation 



-111- 



PREFACE AND SUMMARY 
This Memorandum is a supplement to the Information Pro- 

•k 

cessing Language-V Manual , detailing a new alternate format 
in which IPL routines and data can be represented. Specifi- 
cally, LIPL (Linear IPL) is a horizontal, linear, paren- 
thesis format. This Memorandum also describes a new IPL 
Basic Process, J164, for in-process loading of LIPL routines 
and data. J164 has been coded as an IPL routine, and, 
therefore, can be used on any IPL computer. A description 
and listing of this routine is included; card or tape copies 
of the routine can be obtained by writing The RAND Corpora- 
tion. 

LIPL, like the parent IPL languages, was developed at 
The RAND Corporation and Carnegie Institute of Technology. 
Since it packs more information per card than the standard 
IPL representation and since it does not have a fixed-column 
format, it should be especially valuable in card-reader- 
limited systems and in remote teletype operations. 

The use of LIPL is detailed in the Introduction, which 
is followed by a Reference section arranged for quick look- 
up of information by the LIPL user. Section III describes 
the IPL-coded, in-process LIPL loader, J164; the Appendix 
gives a complete listing of this routine. Section III and 
the Appendix are included solely for the use of the systems 
programmer responsible for incorporating LIPL into a particu- 
lar object machine. 



Allen Newell, F. M. Tonge, E. A. Feigenbaum, B. F. 
Green, and G. H. Mealy (eds.), Information Processing 
Language-V Manual , 2nd ed. , Prentice-Hall, Inc., Englewood 
Cliffs, New Jersey, 1964. 
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I. INTRODUCTION 



Linear IPL, LIPL, is an alternate mode for represent- 
ing Information Processing Language-V routines and data in 
a horizontal, linear, parentheses format. J164 is a new 
basic process for in-process loading of routines and data 
represented in LIPL. 

Consider the example of a J165 load deck, shown in 
Fig. 1. The described list LI can be represented in LIPL 
as follows: 

Ll=(9-1 SI S2) 9-l=(0 Al VI) 

Parentheses are used to delimit lists; an equal sign indi- 
cates that the object to its right is named by the symbol 
to its left. Alternatively, the sublist can be inserted 
directly into the list: 

Ll=(9-1=(0 Al VI) SI S2) 

In this case, we need not name the sublist: 

L1=((0 Al VI) SI S2) 

J164 will automatically give the unnamed sublist a local 

name. 

The data list L2 can be represented in LIPL as follows; 

L2=(0 9-0 9-1 9-2 9-3) 9-0=+17 9-l=-73.2 
9-2=$HOUSE$ 9-3=/3077560 
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COMMENTS 



OOOO I 1 1 1 1 1 I I ii 22 222222 
7890 12345678901 234567 



2233333333334 
890 1 234567890 



DATA HEADER 
DESCRIBED LIST 



DESCRIPTION LIST 



DATA LIST 



DECIMAL INTEGER 17 
FLOATING POINT -73.2 
ALPHANUME RIC 'HOTTSE!' 



OCTAL INTEGER 3077560 
PRINT LIST 




ROUTINE HEADER 

TEST IF SYMBOL (0) IS 



TEST IF SYMBOL (0) IS 



TYPE FIVE START CARD- 




Fig. 1— Example of a J165 load deck 



A plus or a minus sign indicates that the number to its right 
is a numeric data term. If no decimal point occurs, it is 
loaded as an integer. If a decimal point does occur, it is 
loaded as a floating point number. The decimal point may 
also occur at the beginning or the end of the number (-.25 
or +10.). Dollar signs are used to delimit alphanumeric 
data terms. A slash indicates an octal integer. Just as 
sublists may be placed directly inside their main lists, data 
terms may be placed directly inside the lists they are used 
on: 

L2=(0 9-0=+17 9-1—73.2 9-2=$HOUSE$ 9-3=/3077560) 

The names of the data terms may now be dropped if desired: 

L2=(0 +17 -73.2 $H0USE$ /3077560) 

The print list L3 can be represented in LIPL as 
follows : 

L3=(0 $THIS$ $ IS L$ $IPL$) 

If five or fewer columns separate the dollar signs, the 
characters are loaded left-justified and the data term is 
completed with blanks if necessary. This print list can 
also be represented in LIPL as follows: 

L3=$THIS IS LIPL$ 

If more than five columns separate the dollar signs, J164 
assembles a list of alphanumeric data terms. The head of 
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the list contains an internal zero and the data terms are 
given local names. Five characters are packed per data 
term, except that trailing blanks of one data term are 
repeated as leading blanks of the next data term. Trailing 
blanks are repeated since J157 suppresses them. Therefore, 
it is possible to enter a print list into a print line by 
simply generating its symbols using generator J100 with 
subprocess J157. 

The routine Rl can be represented in LIPL as follows: 

R1=(J50 109-0 J100 J30,J5) 9-0=(llWO J2,J5) 

A P and a Q may precede any basic element. A comma indi- 
cates that the next symbol is a link. This routine may 
also be represented as follows: 

R1=(J50 10(11WO J2,J5) J100 J30,J5) 

The routine R2 can be represented in LIPL as follows: 

R2=(J50,9-1 J60 709-2 12H0 11W0 J2 709-1,9-2 J30,J8) 

When a link occurs in the middle of a list, it is also 
used as the name of the next cell. 

The complete LIPL load deck is shown in Fig. 2, 
exactly as it might be key punched. Symbols and numeric 
data terms must not contain internal blanks and they must 
be terminated on the right with either a right parenthesis, 
an equal sign, a comma, or a blank. Blanks may not follow 
a P or a Q. Except for the above restrictions, blanks may 
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12H0 11W0 J2 709-1,9-2 J30.J8) GT RO 



R2 'TEST IF SYMBOL (0) IS ON LIST (1)' - (J50.9-1 J60 709-2 
L3 = $THIS IS LIPL$ RT R1=(J50 10(11W0 J2.J5) J100 J30.J5) \ 

\ 



DT L1=((0 Al VI) SI S2) L2=(0 +17 -73.2 $H0USE$ /3077560) 



Fig. 2— Example of a J164 load deck 



DT L1=((0 Al VI) SI S2) L2=(0 +17 -73.2 $HOUSE$ /3077560) 
L3 = $THIS IS LIPL$ RT R1-(J50 10(11WO J2.J5) J100 J30.J5) 
R2 'TEST IF SYMBOL (0) IS ON LIST (1)' - (J50.9-1 J60 709-2 
12H0 11H0 J2 709-1,9-2 J30,J8) GT RO 
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Fig. 3— Example of a J164 deck and assembly listing 
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be used freely to Improve the readability of the deck. J164 
assumes that a blank occurs between every card. Therefore, 
a symbol or a numeric data term must not be split across 
two cards. Alphanumeric data terms may be split across two 
or more cards. Comments may be inserted at any point at 
which blanks are permitted by enclosing them in quotes. 
The domain of definition of local symbols is from one 
unparenthesized regional list name to the next unparenthe- 
sized regional list name. 

Three pseudo commands are shown in Fig. 2 — DT, RT, and 
GT. DT, a mnemonic for data, is equivalent to a Type-5 
card with a Q of 1; it indicates that data is to be 
loaded. RT, for routines, is equivalent to a Type-5 card 
with Q = 0, and indicates that routines are to be loaded. 
Since routines and data must be loaded differently, J164 
contains a switch that may be set to either routines or 
data. These two pseudos are used to flip this switch. 
Initially, when J164 is fired, this switch is set to data. 
Therefore, the DT on the first card in Fig. 2 need not 
have been punched. Data terms may be freely used in routines 
since J164 recognizes them independently of the routine/data 
switch. The pseudo GT, for go- to, is equivalent to a 
final Type-5 card. It indicates the end of a load deck, 
and the symbol to its right, RO in the example, is taken 
as the name of the next routine to be interpreted. Alter- 
nately, the pseudo ND, for end, could have been used, in 
which case interpretation would continue with the instruc- 
tion following J164. A complete list of pseudos is given 
in Sec. II. They may be used at any point in the load deck 
where blanks are permitted. 
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When J164 is fired, it will first list the load deck 
and give a sequence number to each card. It will then give 
an assembly listing that is cross-referenced with the load 
deck by means of the sequence numbers. An example of this 
listing is given in Fig. 3. The assembly listing may be 
suppressed by means of the pseudo NL, no listing. 

Since all special characters are used in LIPL as 
punctuation, the special character regional symbols must 
be written in LIPL prefixed with an asterisk. Thus, the 
IPL symbols (5, $18, and *30 are represented in LIPL as 
*(5, *$18, and **30. 

Several other types of symbols can be represented in 
LIPL- -symbolic internal, absolute decimal internal, absolute 
octal internal, and mnemonic. These are described in Sec. 
II. 

J164 will frequently be used to replace data structures 
and routines. Since the old structures and routines are no 
longer needed and would simply be using up available space, 
LIPL provides a mechanism for erasing them. Any symbol may 
be preceded by a period, in which case the symbol serves its 
normal contextual purpose and, in addition, the structure or 
routine named by the symbol (if any) is erased. A structure 
or a routine erase is used depending on the current setting 
of Jl64's routine/data switch. 

Frequently, many data structures of the same form must 
be loaded. In LIPL, a copy of a structure may be repre- 
sented by writing the name of the structure to be copied 
prefixed with two adjacent single quotes. An example of 
this feature is shown below: 
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L4=((0 SI S2) (0 SI S2)) L5=((0 SI S2) (0 SI S2)) 
L4=(9-0=(0 SI S2) "9-0) L5= f »L4 

Copies may be named or unnamed. An unnamed copy is given 
a local name if the structure copied had a local name; 
otherwise, the unnamed copy is given an internal name. 
Since J164 is a single-scan loader, only structures that 
are already in core or have been defined to the left can 
be copied. 
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II. REFERENCE 

SYMBOLS 

A decimal subscript is an unsigned decimal integer with no 
internal blanks. 

An octal subscript is an unsigned octal integer with no 
internal blanks. 

A regional symbol is 

1) a letter, or 

2) a letter immediately followed by a decimal sub- 
script, or 

3) a "*" immediately followed by any non-numeric 
character, or 

4) a "*" immediately followed by any non-numeric 
character, immediately followed by a decimal 
subscript. (E.g., the IPL symbol "$17" must be 
represented in LIPL as "*$17".) 

A local symbol is 

1) a "9" immediately followed by a decimal subscript, 
or 

2) a "9-" immediately followed by a decimal subscript. 

J164 does not distinguish between the symbol "93" and 
"9-3". The domain of definition of local symbols is 
from one unparenthesized regional list name to the 
next unparenthesized regional list name. 

A symbolic internal symbol is 

1) an "8" immediately followed by a decimal subscript, 
or 
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2) an "8-" immediately followed by a decimal sub- 
script. 

A symbolic internal symbol is assigned an arbitrary 
equivalent from available space (1W34) when it first 
occurs, unless it is made synonomous (by naming) with 
another symbol. The internal symbol table may be re- 
set at any time with the pseudo command RI. The 
internal symbol table may be printed with the pseudo 
command PI. J164 does not distinguish between the 
symbol "85" and **8-5". 

An absolute internal symbol is 

1) the digit zero, or 

2) an "8." immediately followed by a decimal sub- 
script, or 

3) an "8/" immediately followed by an octal subscript, 

The symbol stands for the absolute machine address 
specified by its subscript. 

A mnemonic symbol is 

1) two letters, or 

2) two letters immediately followed by any number of 
letters and digits. 

J164 looks only at the last five or fewer characters 
of a mnemonic symbol. Thus, although CAT, SECONDCELL, 
and THIRDCELL are all mnemonic symbols, J164 will not 
differentiate between the last two. A mnemonic symbol 
is assigned an arbitrary equivalent from available 
space (1W34) when it first occurs, unless it is made 
synonomous (by naming) with another symbol. The 
mnemonic symbol table may be reset at any time with 
the pseudo command RN. The mnemonic symbol table 
may be printed with the pseudo command PN. 
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An erase symbol is a "." immediately followed by a regional, 
internal, or mnemonic symbol. The symbol serves its 
normal contextual purpose and, in addition, the struc- 
ture or routine named by the symbol (if any) is erased. 
The cell named by the symbol is cleared but not erased. 
A structure or routine erase is used depending on the 
current setting of Jl64's routine/data switch. 

A copy symbol is a pair of single quotes immediately fol- 
lowed by a regional, local, internal, mnemonic, or 
erase symbol. The data structure named by this symbol 
is copied. The copied structure can be named by pre- 
ceding the copy symbol with a name. An unnamed copy 
is given a local name if the structure copied had a 
local name; otherwise, the unnamed copy is given an 
internal name. Only structures that have been pre- 
viously defined can be copied. 

Symbols may not contain internal blanks. They must be 
terminated on the right with either a right parenthesis, 
an equal sign, a comma, or a blank. A symbol may not be 
split across two cards. 

DATA TERMS 

A sign is a "+" or a "-". 

An integer data term is a sign immediately followed by a 
decimal integer. 

A floating point data term is 

1) a sign immediately followed by a decimal integer, 
immediately followed by a ".", or 

2) a sign immediately followed by a decimal integer, 
immediately followed by a ".", immediately fol- 
lowed by a decimal integer, or 



•12- 



3) a sign Immediately followed by a ".", immediately 
followed by a decimal integer. 

An octal data term is a "/" immediately followed by an un- 
signed octal integer. 

An alphanumeric data term is a "$" followed by any number 
(including zero) of characters and blanks followed 
by another "$". If five or fewer blanks and charac- 
ters separate the dollar signs, a single left- justified 
data term is assembled. If six or more blanks and 
characters separate the dollar signs, then a list of 
alphanumeric data terms is assembled. The head of 
the list contains an internal zero and the data terms 
are given local names. Five characters are packed 
per data term except that trailing blanks of one data 
term are repeated as leading blanks of the next data 
term. 

Numeric data terms must not contain internal blanks and 
must be terminated on the right with either a right paren- 
thesis, a comma, or a blank. They may not be split over 
two cards. Alphanumeric data terms may be split over two 
or more cards. 

LISTS 

A name is a symbol followed by an equal sign, followed by 

the object being named. Lists, data terms, mnemonics, 
and copies may be named. 

A basic element is 

1) a symbol, or 

2) a named mnemonic, or 
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3) a named copy, or 

4) a data term, named or unnamed, or 

5) a list, named or unnamed. 

P and Q axe octal digits. 
An element is 

1) a basic element, or 

2) a Q immediately followed by a basic element, or 

3) a P immediately followed by a Q, immediately 
followed by a basic element. 

Blanks must not occur between P, Q, and the basic 
element . 

A link is a comma followed by a symbol. 

A list element is 

1) an element, or 

2) an element followed by a link. 

A list is a "(" followed by one or more list elements, 
followed by a ")". Note that this definition is 
recursive. 

LOAD DECKS 

Blanks must not be embedded in symbols or numeric data 

terms. Blanks must not separate a P, Q, and a basic 
element. Except for these two restrictions, blanks 
may be used freely to improve the readability of the 
deck. 

Pseudos are commands to the loader. They cause no code or 
data to be assembled. Pseudos may be inserted at any 
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point at which blanks are permitted. Pseudos must not 
contain internal blanks and they must be terminated on 
the right with a blank, a right parenthesis, or a comma. 
The complete set of LIPL pseudos is given below. 

RT - routines 

DT - data 

Since the loader must handle data differently 
than routines, it must know which is being loaded. 
J164, therefore, has a routine/data switch which 
is set to data each time J164 is fired. This 
switch can be flipped with the RT and DT pseudos. 
The switch need not be flipped for data terms in 
routines, since the loader recognizes data terms 
independently of the switch. A Q preceding a 
basic element is effective both in routines and 
data. Thus, "29-1" is the local symbol "9-1" 
with Q = 2, regardless of the setting of the 
switch. 

NL - no listing 

This pseudo suppresses the assembly listing. The 
load deck is still listed, however. 

RN - reset mnemonic table 

RI - reset internal table 

PN - print mnemonic table 

PI - print internal table 

ND - end 

This pseudo causes loading to be terminated and 
interpretation to continue with the instruction 
following J 164. 

GT - go to 

This pseudo causes loading to be terminated and 
interpretation to begin with the routine whose 
name occurs, after a blank, to the right of 
this pseudo. 
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Comments are delimited with quotes. They may be inserted 
at any point at which blanks are permitted. 

A load deck consists of named lists, named data terms, 

comments, pseudos, named copies, erase symbols, and 
named mnemonics. It is punched on one or more cards 
using the full 80 columns of the card. The load deck 
is terminated with either the pseudo ND or GT. 

LIPL LOADER J164 

J164 loads one load deck from unit 1W18. It lists the 
deck and the assembly on unit 1W20. Loading into a specific 
block of main storage is accomplished by the use of the 
safe storage cell W34. W34 holds the name of the available 
space list used by the loading processes (initial loading, 
J140, J164, and J165) and initially holds H2. To load 
into a specific block, it is necessary to make the cells of 
the block into a list with J172 and put the name of this 
list into the safe storage cell W34. The first cell of the 
block is never loaded into, since, like H2, it is the head 
of the available space list. If the list 1W34 becomes 
exhausted, H2 is placed in W34 without push-down and loading 
continues from H2. Since J164 uses the print line 1W24, 
the print line is unsafe over J164 and it must be at least 
80 columns long. J164 is an in-process loader; a conven- 
tional initial load deck is still required containing all the 
Type-2 and Type-3 cards defining regional symbols, blocks, 
print lines, etc. Routines and data cannot be loaded into 
auxiliary storage with J164, but data can be loaded into main 
storage and then moved (by J106 or J107) into auxiliary storage, 
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J164 thru 9-11 : Setup and clean up 17-19, 21-23 

9-100 thru 9-179 : Executive routine 19, 32-33 

9-200 thru 9-233 : Print lists. 

9-200 "MNEMONIC TABLE". 

9-210 "INTERNAL TABLE". 

9-220 "ERROR--NO MORE CARDS". 

9-300 thru 9-332 : Pseudo subroutines. 

9-311 ND--Stop 19 

9-312 DT--Set routine/data switch plus 18 

9-313 RT — Set routine/data switch minus 18 

9-315 RN--Erase mnemonic table. 

9-316 RI--Erase internal table. 

9-317 PN--Set mnemonic print flag plus 18 

9-318 PI--Set internal print flag plus 18 

9-319 NL — Set listing desired flag minus 18 

9-320 TR--Turn on full trace. 

9-324 GT--Set link to cell, stop 17, 19 

9-400 thru 9-419 : Work cells, symbols, tables. 

9-400 Mnemonic table 25 

9-401 Pseudo table 25 

9-402 Local table 26 

9-403 Internal table 26 

9-404 Copy flag--J3 or J4 24 

9-405 Erase f lag--J3 or J4 24 

9-406 Assembly print list 20-21 

9-407 Last cell of assembly print list 21 

9-408 Pure symbol for data term 20-21 

9-409 Pure symbol for beginning of sublist 20-21 

9-410 Pure symbol for end of sublist 20-21 

9-411 Routine/data switch — Loading data? 17-18 

9-412 Pure symbol for new card 20-21 

9-413 Integer card count 20 

9-414 Did 1W34 = H2 at start? 18, 23 

9-415 Link to this routine when done 17 

9-416 Cell in print list before last copy 24 

9-417 Is an assembly listing desired? 18 

9-418 Is a mnemonic table desired? 18 

9-419 Is an internal table desired? 18 

9-500 thru 9-799 : Subroutines. 

9-500 Find current character 19 

9-510 Find next character 19 

9-520 Create a cell in HO from 1W34 18 

9-530 Scan for next ) , = or blank 23-24 

9-540 Scan for next ) , or blank 23-24 

9-560 Put letter symbol or pseudo into (0) 25-26 

9-580 Put local or internal symbol into (0) 26-28 

9-600 Erase and/or copy (0), leave (0) 24-25 

9-620 Set octal data in (0), leave (0) 28 

9-630 Set decimal data in (0), leave (0) 28-29 

9-650 Set alphanu data in (0), leave (0) 28, 29-30 

9-680 Read and print a card 19 

9-700 List and erase assembly print list 21 

9-750 Skip comment or set copy flag 31 

9-760 Add (0) to list 1W0, set P and Q • 31-32 

9-770 Add an empty cell to list 1W0 31 

9-780 Erase the assembly print list 21 

9-790 Print internal, mnemonic tables 23 

9-800 thru 9-981 : Integer constants. 

9-8mn Negative integer data term -mn. 

9-9mn Positive integer data term +mn. 

W CELLS 

WO Current cell being assembled 31 

Wl Is cell 1W0 empty? 31 

W2 P or 9 31-32 

W3 Q or 9 31-32 

W4 Is program at top level? 32 

W9 Current character 19 

Fig. 4— Memory map and index 
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9-520 






W34 


9-530 
9-540 






W30 


9-790 




9-400 
9-403 


9-418 
9-419 



Fig. 5 — Usage map 
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III. LIPL LOADER, J164 

The LIPL loader, J164, has been coded as an IPL 
routine, and, therefore, can be used on any IPL computer; 
a complete listing of the deck is given in the Appendix. The 
deck is sequenced in cols. 76-80 and includes extensive 
comments. J164 is the only regional symbol occurring in 
a NAME field. All other names are local symbols and they 
usually occur in ascending order. 

The routine has been coded to operate as fast as pos- 
sible. Therefore, it incorporates no error checking. The 
only error that will stop it is the presence of an end-of- 
file on the input unit before an ND or GT pseudo has been 
detected. On the average, the routine requires 225 inter- 
pretative cycles to load the equivalent of one standard 
IPL input card. 

A memory map of J164 and index of Sec. Ill is given in 
Fig. 4; this map and index may be folded out for continual 
reference while reading this section. A usage map is given 
in Fig. 5. 

The main task of the highest-level routine in J164 
is to set up data for the executive routine 9-100. J164 
begins by putting JO into 9-415. J164 executes 9-415 just 
before it quits. The pseudo command GT causes the JO in 
9-415 to be replaced by the symbol appearing to the right 
of the GT command. 

J164 then puts J4 into 9-411 and 9-417 and J3 into 
9-418 and 9-419. These cells always contain either J3 or 
J4. 9-411 is the routine/data switch. It contains J3 
if routines are being loaded and J4 if data are being loaded. 
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The pseudo commands RT and DT change the contents of this 
cell. 9-417 indicates if an assembly listing is desired. 
The pseudo command NL places a J3 into this cell. 9-418 
indicates whether the mnemonic table is to be printed. The 
pseudo command PN places a J4 into this cell. 9-419 indi- 
cates whether the internal table is to be printed. The 
pseudo command PI places a J4 into this cell. 

J164 then preserves W21, W22, W25, W30, and W31. It 
puts an integer data term equal to 1 into the print column, 
print spacing, and entry column cells, and also puts a 
zero into W31 to suppress tracing. 

J164 next sets routine 9-520 identical to 9-521. When- 
ever a cell is needed from 1W34, it is obtained by firing 
9-520. 9-521 is a subroutine that removes the first list 
cell from list 1W34, clears the cell, and leaves its name 
in HO. However, if list 1W34 becomes exhausted, it stores 
the symbol H2 into W34 and sets 9-520 identical to J90 so 
that from then on the user's program is assembled into cells 
taken from H2 . 

Next, J164 tests if 1W34 = H2 and it stores the result 
of this test, 1H5, into 9-414. If the test comes out plus, 
J164 cuts off the last one-third of the available space 
list H2 and puts the name of this last third into W34. 
Since the tail end of H2 is usually in sequential order and 
since J164 loads sequentially into the cells of list 1W34, 
the assembly listing will usually come out in sequential 
order. If this were not done, the cell names in the as- 
sembly listing would occur in a random order and it would 
be difficult to locate a particular cell in a large listing. 
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J164 then clears the print line (setting the column 
pointer 1W25 to 1), preserves W9, executes 9-680, and 
then executes 9-500. 9-680 reads a line from the input 
unit by executing J180 and prints it by executing J155. 
It also does a few other tasks that will be discussed 
later. 9-500 checks if the character in the print line 
at column 1W25 is non-blank. If it is non-blank, this charac- 
ter, which is read by using J186, is placed into W9 (W9 al- 
ways contains the so-called current character), and H5 is set 
plus. Otherwise, H5 is set minus and the routine advances 
1W25 to the next non-blank column and puts the character 
at that column into W9. If the rest of the print line 
is blank, it reads and prints a card by executing 9-680 
and trys again until it finds a non-blank column. Thus, 
the routine is used to find the current character. 9-510, 
which finds the next character, is identical to 9-500 
except that it first advances 1W25 by one column. 

J164 next preserves and sets up W0-W4 and fires the 
executive routine 9-100. 9-100 does all the actual as- 
sembling. It is executed recursively each time a left 
parenthesis is encountered. It is terminated when a right 
parenthesis, the pseudo ND, or the pseudo GT is encountered. 
9-100 operates exactly the same when it is recursively 
assembling a sublist as when it is operating at the top 
level (except only in the latter case is the local symbol 
table reset when a regional list name is encountered) . 
Therefore, it also assembles a list of all the unparenthe- 
sized symbols. In the example shown in Fig. 3, 9-100 would 
also have assembled the following list: 
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500 


LI 


506 


506 


L2 


515 


515 


L3 


522 


522 


Rl 


528 


528 


R2 






This useless list is erased by routine 9-700, as we shall 
see. 

Each time a cell is assembled, its name is added to 
the end of the assembly print list, or simply the print 
list, 9-406. This list is used by routine 9-700 to generate 
the assembly listing if requested. When a data term is 
assembled, the pure symbol (pure in the sense that the cell 
named by the symbol is never used for anything) 9-408 is 
put on the print list just before the name of the data term. 
This is necessary since the listing routine must interpret 
a data term differently than a list cell. When a new sub- 
list is begun, the executive routine puts the pure symbol 
9-409 on the print list just before the first cell of the 
sublist. When a sublist is terminated, the executive 
routine puts the pure symbol 9-410 on the print list just 
after the last cell of the sublist. 

9-680 reads a card by executing J180. If there is no 
card present, it prints ERR0R--N0 MORE CARDS and does a 
J7. If there is a card, it adds one to the integer data 
term 9-413, the card count, and enters this number together 
with the word CARD into the print list. It then prints 
the line, blanks out the word CARD together with the 
number and adds the pure symbol 9-412 to the print list 
followed by a locally named copy of the integer card count 
9-413. 
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Cell 9-407 always contains the name of the last cell 
on the print list. This means that each time we want to 
add something to the end of the print list, we don't have 
to go down the entire list. However, now we have the 
responsibility of keeping this cell updated. 

Thus, the print list contains the names of the cells 
assembled, the pure symbols 9-408, 9-409, 9-410, and 9-412, 
and copies of the integer card count 9-413. Fig. 6 shows 
the complete print list generated by the load deck of Fig. 3. 

We will discuss the executive routine 9-100 in greater 
detail later. Assume that it has now terminated and re- 
turned control to J164's setup routine. J164 then restores 
W0-W4 and executes 9-700. 9-700 checks cell 9-417 to see 
if an assembly listing is desired. If not, it links to 
9-780, a subroutine that erases the print list, the use- 
less list of unparenthesized symbols, and the card count 
data terms. If an assembly listing is desired, 9-700 
generates and prints the assembled cells and at the same 
time erases the useless list of unparenthesized symbols and 
the card count data terms. Then, just before terminating, 
it erases the print list. The routine divides the page 
into four vertical strips, each 28 columns wide. A list 
is printed down a strip. The highest-level lists are 
printed down the left strip. Their sublists are interpolated 
and printed in the strip to the right of the super list. All 
lists of depth 3 or greater are printed in the third strip 
from the left. Lists at the highest level and lists of 
depth 3 or greater are separated by printing one blank line 
before and after. Data terms at the highest level are 
printed in the left strip. If a data term is named in a 
list, it is printed on the same line as the cell that names 
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9-406 




500 

9-412 

9-<* 

9-409 

LI 

9-409 

501 

502 

503 

9-410 

504 

505 

9-410 

506 

9-409 

L2 

507 

9-408 

508 

509 

9-408 

510 

511 

9-408 

512 

513 

9-408 

514 

9-410 

9-412 

9-8 






518 

9-409 

519 

520 

9-409 

521 

9-410 

522 

9-409 

Rl 

523 

9-409 

524 

525 

9-410 

526 

527 

9-410 

9-412 

9- 

528 

9-409 

R2 

529 

530 

9-412 

9-0 

532 

533 

534 

535 

531 






515 






9-410 







9-409 


9- 


■a 


+01 


1 




L3 


9- 


■j8 


+01 


2 




516 


9- 


•0 


+01 


3 




9-409 


9- 


-9 


+01 


4 




517 











Fig. 6— Assembly print list generated by load deck of Fig. 3 
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it. The name of a cell goes in col. 1, P in col. 8, Q in 
col. 10, the symbol in col. 12, and the link in col. 18-- 
all modulo 28. Card numbers are printed as CARD n begin- 
ning at col. 111. They are printed on the same line as the 
first cell assembled by that card. If a card causes nothing 
to be assembled (as, for example, a card with nothing but 
comments), its card number is not printed. This routine 
is completely self-contained, except for subroutine 9-780. 

After executing the listing routine 9-700, J164 next 
executes routine 9-790 which prints the mnemonic table if 
9-418 contains J4, and prints the internal table if 9-419 
contains J4. The internal format of these tables will be 
described later. 

J164 then checks cell 9-414, which indicates if cell 
W34 contained H2 at the start. If W34 did contain H2 at 
the start and if it doesn't now, the list 1W34 (which 
originally was the last third of H2) is tacked onto the 
end of the available space list H2 (in effect, it is erased) 
and the symbol H2 is stored into W34. Finally, J164 re- 
stores W21, W22, W25, W30, and W31, and then terminates 
by linking to the routine named in cell 9-415. 

We will now look at the subroutines used by the exec- 
utive routine 9-100. There are two scan routines, 9-530 
and 9-540. These routines have no inputs or outputs in HO. 
The only cell they modify (other then H5 , which is unsafe 
over all subroutines) is W30, the field length cell. 9-530 
puts an integer data term into W30 that is equal to the 
difference between column 1W25 and the first column to the 
right of 1W25 that contains either a right parenthesis, a 
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comma, an equal sign, or a blank. If 1W25 points to the 
first character of a LIPL symbol and 9-530 is executed, 
upon completion 1W30 will contain the width of that symbol 
since all LIPL symbols must terminate with one of these 
four characters. 9-540 is identical to 9-530 except that 
it does not scan for equal signs. 9-540 is used in reading 
numeric data terms since LIPL numeric data terms must al- 
ways terminate with either a right parenthesis, a comma, 
or a blank. 

9-404 and 9-405 are the copy flag and the erase flag. 
Normally these cells contain J3. However, whenever the 
executive routine 9-100 encounters a pair of adjacent quotes, 
it causes a J4 to be placed into 9-404; when it encounters 
a period, it causes a J4 to be placed into 9-405. The 
routines that read LIPL symbols from the print line (9-560 
and 9-580) leave the symbol in HO and link to routine 9-600. 
If the copy flag is on (contains J4) , input (0) is copied. 
The method of copying is the same as that used by J74 except 
that the cells for the copy are taken from list 1W34 and 
the names of the cells are added to the print list 9-406. 
(Before the copy process is started, the name of the last 
cell on the assembly print list is stored into cell 9-416. 
This is used by the executive routine 9-100 to slightly 
fudge the print list.) If the erase flag is on, the 
structure or routine named by the original input (0) is 
erased. If the routine/data switch 9-411 is minus, indi- 
cating that routines are being loaded, the input (0) is 
erased as a routine; otherwise, the input is erased as a 
data structure, except that the head cell is simply cleared 
instead of being erased. In any case, upon exit both flags 



-25- 



are turned off, H5 is set plus, and (0) contains input (0) 
or, if the copy flag was on, the name of the copy. 

The mnemonic table 9-400 and the pseudo table 9-401 
have identical form. They have the form of description 
lists, except that the attributes are the names of alpha- 
numeric data terms. This may be seen by looking at the 
pseudo table 9-401 in the program listing given in the Appen- 
dix, where the attributes are not the symbols occurring on 
the list but rather the data terms named by those symbols. 
Therefore, unfortunately, the IPL description list pro- 
cesses cannot be used on these "description lists." 

Routine 9-560 is used to read regional and mnemonic 
LIPL symbols and pseudos from the print line. 1W25 is 
assumed upon entry to point to the first character of the 
symbol (except in the case of a special character regional 
symbol which LIPL requires to be prefixed with an asterisk, 
in which case 9-560 assumes 1W25 upon entry to point to the 
column after the asterisk). The routine first executes 
9-530 which sets 1W30 to the width of the symbol. It then 
checks to see if the symbol is a regional symbol. It is 
a regional symbol if the character in col. 1W25+1 is a 
digit or if the width of the symbol is 1. If it is a 
regional symbol, it executes J181 which puts the symbol 
into HO and it then links to 9-600 which copies and/or 
erases if required and sets H5 plus. If it is not regional, 
it reads the symbol into HO as an alphanumeric data term 
by using J182. It then searches the pseudo table 9-401. 
If it is a pseudo, it puts the name of the equivalent 
pseudo subroutine into HO and quits with H5 minus. If it 
is not a pseudo, it must be a mnemonic, so it searches the 
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mnemonic table; if found, it puts the equivalent symbol 
into HO and links to 9-600. If it is not found in the 
mnemonic table, it creates an internal symbol, by using 
9-520, makes this new symbol equivalent to the mnemonic 
symbol in the mnemonic table, leaves the new symbol in HO, 
and links to 9-600. Thus, upon completion H5 is minus and 
(0) contains the name of a pseudo subroutine, or H5 is 
plus and (0) contains either a regional symbol, a symbol 
equivalent to a mnemonic symbol, or the name of a copy if 
the copy flag was on. In any case, 1W25 now points to the 
first column after the LIPL symbol or pseudo. 

The local symbol table 9-402 and the internal symbol 
table 9-403 are in the form of empty described lists. The at- 
tributes of their description lists are LIPL subscripts 
represented as absolute internal symbols, and their values 
are symbols obtained from 1W34 by means of routine 9-520. 
For example, if the LIPL local symbols 9-1 and 935 were 
assigned the equivalent IPL local symbols 1347 and 1409, 
the local symbol table might look like this: 







9-402 


02 1700 


1700 


04 




04 1 




02 1347 




04 35 




02 1409 







Routine 9-580 is used to read local and internal 
LIPL symbols from the print line. It has one input in 
HO. If (0) is J3, the routine assumes that the character 
at col. 1W25 is the 8 at the beginning of an internal 
LIPL symbol; if (0) is a J4, it assumes that the character 
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at col. 1W25 is the 9 at the beginning of a local LIPL 
symbol. The routine saves input (0), advances 1W25 by one 
column, and branches on this next character. This charac- 
ter is either a minus sign, a period, a slash, or a digit. 
If the character is a period, indicating an absolute decimal 
symbol, it advances 1W25 by 1, executes 9-530 to set 1W30 to 
the width of the subscript, executes J181 to put the sub- 
script, as an absolute internal symbol, into HO, makes 
this symbol local if the original input (0) was J4, and 
then links to 9-600 to copy and/or erase the symbol if 
required. If the character being branched on is a slash, 
indicating an absolute octal symbol, it advances 1W25 by 
1, executes 9-530 to set 1W30 to the width of the subscript, 
executes J182 to put the subscript into HO as an octal data 
term, executes J128 to convert this octal data term to a 
(decimal) integer data term, decrements 1W25 by 1, executes 
J159 to enter this integer into the print line right- 
justified, and then goes to the same point in the routine 
to which the character period branched. If the character 
being branched on is a minus sign or if it is a digit, both 
indicating local symbols, the routine does the same thing, 
except that in the case of the minus sign 1W25 is first 
advanced by one column. The routine then executes 9-530 
to set 1W30 to the width of the subscript. It then puts 
the subscript as an absolute internal symbol into HO by 
executing J181. It then uses J10 to find the equivalent 
symbol for this subscript on the local symbol table 9-402 
(if input (0) was J4) or on the internal table 9-403 (if 
input (0) was J3) . If found, this equivalent symbol is 
left in HO and the routine links to 9-600; if not found, 
a new symbol is created by executing 9-520. This symbol 
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is made local or internal, depending on input (0), and 
it is assigned as the value of the subscript on the internal 
or local table. This new symbol is left in HO and the 
routine links to 9-600. Thus, upon completion H5 is plus, 
(0) contains either an absolute symbol, the equivalent of 
a LIPL local or symbolic internal symbol, or the name of 
a copy, and 1W25 points to the first column after the LIPL 
symbol. 

Three routines are used to assemble data terms: 9-620 
assembles octal data terms; 9-630 assembles numeric data 
terms, both integers and floating point; and 9-650 assembles 
alphanumeric data terms and alphanumeric print lists. They 
all have one input (0), which they leave as output (0). 
They all assemble the LIPL data term beginning at col. 
1W25 into cell (0), except 9-650 when it assembles a print 
list, in which case (0) becomes the name of the list. 
They assume that the character at col. 1W25 is a slash, 
a plus sign or a minus sign, or a dollar sign, respectively. 
When they assemble a data term, they add the pure symbol 
9-408 and the name of the assembled cell to the assembly 
print list 9-406. In addition, when 9-650 assembles a 
print list, it adds the names of the cells of the print 
list to 9-406. They all terminate with 1W25 pointing to 
the next column after the LIPL data term. 

9-620 first advances 1W25 by 1. It then executes 
9-540 to set 1W30 to the width of the octal data term. 
Next, it executes J182 to put the octal data into cell 
(0), then it adds the pure symbol 9-408 and (0) to list 
9-406 and quits. 
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9-630 begins by adding the pure symbol 9-408 and (0) 
to list 9-406. It then counts the number of columns to 
the next period, advances 1W25 by 1, and sets 1W30 to the 
width of the data term by executing 9-540. If the next 
period is beyond the end of the data term, it executes 
J182 to input the LIPL integer into cell (0), and quits. 
(This routine only forms the absolute value of a data term; 
the executive makes it negative if required.) If the next 
period occurs before the end of the data term, it forms 
two data terms, one for the integral part of the LIPL data 
term and the other for the fractional part of the data term, 
and places their sum into (0) and terminates. It forms 
the integral part by doing J182 with 1W30 set equal to the 
number of columns to the next period. It forms the frac- 
tional part by doing a J182 with 1W30 set equal to the 
number of columns between the period and the end of the 
data term and dividing this number repeatedly by 10, once 
for each column between the period and the end of the data 
term. 

Routine 9-650, which assembles alphanumeric data, be- 
gins by making input (0) a blank alphanumeric data term. 
If a dollar sign occurs in col. 1W25+1, it advances 1W25 
by 2, puts the pure symbol for a data term 9-408 and input 
(0) on the print list 9-406, and terminates. If a dollar 
sign occurs in the next six columns, but not in the very 
next column, the routine advances 1W25 by 1, sets the field 
width 1W30 to one less then the distance to the next dollar 
sign, inputs the alphanumeric data into cell (0) by exec- 
uting J182, again advances 1W25 by 1 (just past the second 
dollar sign) , puts the pure symbol for a data term 9-408 
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and input (0) on the assembly print list 9-406, and 
terminates. If the next dollar sign occurs further than 
six columns away, the routine advances 1W25 by 1, makes 
input (0) identical to an empty list, puts the pure symbol 
for the beginning of a sublist 9-409 and the input (0) on 
the assembly print list 9-406, and then begins a cycle. 
The cycle begins by checking if 1W25 is greater than 80. 
If greater then 80, 9-680 is executed to read and print 
a card and 1W25 is reset to 1. The cycle continues in any 
case by checking to see if col. 1W25 contains a dollar sign, 
in which case 1W25 is advanced by 1, the pure symbol for 
the end of a sublist, 9-410, is added to the assembly print 
list 9-406, and the routine terminates. Otherwise, the 
cycle continues by checking to see if the next four columns 
contain a dollar sign. If not, it creates two cells from 
list 1W34 by executing 9-520 twice. It puts the name of 
the second cell into the first cell and it adds the first 
cell to the end of list (0). It adds the name of the first 
cell, the pure symbol for a data term, 9-408, and the name 
of the second cell to the assembly print list 9-406. It 
then reads the alphanumeric data beginning at col. 1W25 
with a field width 1W30 equal to 5 into the second cell by 
executing J182. Then 1W25 is decremented by the number 
of trailing blanks in the last data term assembled, and the 
routine recycles. If, at the start of the cycle, one of 
the next four columns contains a dollar sign, the same 
process occurs, except that the field width 1W30 is set 
to one less than the distance to the next dollar sign and 
instead of recycling, 1W25 is advanced by 1, the pure 
symbol for the end of a sublist, 9-410, is added to the 
assembly print list 9-406, and the routine is terminated. 
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Routine 9-750 is used to skip over comments or to set 
the copy flag 9-404. Each time the executive routine 9-100 
encounters a quote, it executes 9-750. Column 1W25 always 
contains a quote when 9-750 is executed. The routine ad- 
vances 1W25 by 1. If this next column contains another 
quote, the routine stores J4 into the copy flag 9-404 and 
links to 9-510. Otherwise, it advances 1W25 one column past 
the next quote and terminates. If there isn't another 
quote in this print line, the routine reads and prints a 
card by executing 9-680. It repeats this process until it 
finds the second quote and then it sets 1W25 one column 
beyond and terminates. 

WO always contains the name of the current cell being 
assembled. Wl contains J3 or J4. If cell 1W0 has not yet 
been assembled, it is considered empty and Wl contains J4. 
If the current cell 1W0 has been assembled, Wl contains J3. 
Lists are always assembled from the head cell down. Cell 
1W0 is, therefore, the last cell of the list being cur- 
rently assembled. And, according to standard IPL terminology, 
it is also a list in its own right--an empty list. Routine 
9-770 adds an empty cell to list 1W0 (or cell 1W0, depend- 
ing on how you want to view it) if Wl is minus. It does 
this by executing 9-520 which creates a new cell from 1W34, 
making the name of this cell the link of cell 1W0, putting 
the name of this new cell into WO, and setting Wl plus. 

W2 and W3 normally contain the absolute internal symbol 
9. Whenever the executive routine 9-100 encounters a P, 
it is stored in W2 as an absolute internal symbol. When- 
ever a Q is encountered, it is stored into W3 as an absolute 
Internal symbol. Routine 9-760 adds the symbol (0) to list 
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1W0. If cell 1WO is not empty (1W1 ^ J4) , the routine 
adds an empty cell to 1WO by doing the equivalent of 
9-770. In any case, input symbol (0) is stored into cell 
1W0 and 1W0 is added to the assembly print list 9-406. 
If 1W3 (Q) is not (the absolute internal symbol) 9, the Q 
of cell 1W0 is set to 1W3 by executing J195 and W3 is reset 
to 9. If 1W3 originally was 9 and if the routine/data 
switch 9-411 contains J3, indicating that routines are being 
loaded, the Q of cell 1W0 is set to 0. If 1W2 (P) is not 
(the absolute internal symbol) 9, the P of cell 1W0 is set 
to 1W2 by executing J194 and W2 is reset to 9. Finally, 
J3 is stored into Wl, indicating that cell 1W0 has been 
assembled and is not empty. 

W4 contains J4 if the executive routine 9-100 is op- 
erating at its top level; otherwise, it contains a J3. Its 
only function is to help in determining when to reset the 
local symbol table. 

We have now described all the routines, tables, work- 
ing cells, and symbols used by J164, except the executive 
routine 9-100. A detailed flowchart of the routine is 
given in Fig. 8. The executive routine, as the name 
implies, does little more than sequence subroutine calls. 
Most of this sequencing is accomplished by branching on 
the current character, which is always contained in W9. 
Branches on the current character are represented in the 
flowchart as hexagons. If the current character 1W9 is 
the character in a hexagon, program control moves along 
the horizontal arrow. Otherwise, it moves along the down 
arrow. This branching is usually accomplished by means of 
description lists. The characters in the hexagons appear 
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as attributes (in the form of regional symbols) on the 
description list and they have for values the name of 
the section of 9-100 to which control is to pass for this 
character. Thus, to branch on the current character, the 
program finds the value of attribute 1W9 on a description 
list and then it links to Jl. 

When 9-100 is fired for the very first time, the set- 
up routine has already read the first card into the print 
line, preserved W0-W4 and W9, and placed an empty cell 
into WO, J4 into Wl and W4, the absolute internal symbol 9 
into W2 and W3, and the first character into W9. 

Suppose we did not have to worry about copy symbols, 
erase symbols, pseudos, the symbol 0, named mnemonics, 
Ps and Qs, or the order in which things are placed on the 
assembly print list. Then, a simplified flowchart for 
9-100 would look like Fig. 7. From the simplified flow- 
chart to the complete flowchart is just a matter of adding 
details. 
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of sub list 



Add (0) to 
list 1W0 



Start 



Assemble LI PL 
data term 
into cell (0) 



Add(0) to 
list 1W0 



~7~ 
Start 



Assemble sublist 
with name (0) 
by doing 9-100 
recursively 



Add (0) to 
list 1W0 



T 



Start 



+, -, $, or/ 



Error 



I 



Fig. 7— Simplified flowchart of executive 9-100 
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Appendix 
J164 LISTING 



5 04 
100 SET UP» CLEAN UP*************** J164 10J0 



PUT JO IN 9-145. J4 IN 
9-417 AND 9-411. J3 IN 
9-418 AND 9-419. 
PRESERVE W21» W22. W25, 
W3u, AND W31. 
IF 1W34=H2, PUT THE LAST 
THIRD OF LIST H2 IN W34. 
READ A CARD. SET UP 
W0-W4 AND W9» AND DO 
9-100. THEM DO 9-700 
AND 9-790. IF 1W34=H2 
AT START AND IT DOESN'T 
NOW, TIE LIST 1W34 ON 
TO END OF H2 AND PUT H2 
INTO W34. RESTORE ALL 
W'S. LINK TO ROUTINE IN 
9-145. 



a******************************** 

* MEMORY MAP * 

♦ _ _ 



* 
* 
* 
* 

* 
* 
* 

* 
* 
* 



* 

WO 

Wl 

W2 

W3 

W4 

W9 

* 

* 

200 



* 

W CELLS * 

CURRENT CELL BEING ASSEMBLED* 

IS 1W0 EMPTY Y/N 

P 

Q 

IS PROGRAM AT TOP LEVEL 

CURRENT CHARACTER 

0-99 SET UP. CLEAN UP 



* 
* 
* 

Y/N* 
* 

* 
# 
* 
■* 

* 



100-199 EXECUTIVE 

20U-299 PRINT LISTS 

'NEUMONIC TABLE' 
210 'INTERNAL TABLE' 
220 'ERROR — NO MORE CARDS' 
* 400-499 WORK CELLS. SYMBOLS* 

400 NEUMONIC TABLE 

401 PSEUDO TABLE 

402 LOCAL TABLE 

403 INTERNAL TABLE 

404 COPY FLAG 

405 ERASE FLAG 

406 PRINT LIST 

407 LAST CELL OF PRINT LIST 

408 SYMBOL 4 DATA TERM 

409 SYMBOL 4 BEGINNING OF SUBLST* 

# 
* 
* 
* 

* 
* 
* 
* 



410 SYMBOL 4 END OF SUBLIST 

411 DATA MODE FLAG 

412 SYMBOL FOR NEW CARD 

413 INTEGER CARD COUNT 

414 W32=H2 AT START Y/N 

415 LINK TO THIS ROUTINE 

416 CELL IN PRINT LIST JUST 
* BEFORE LAST COPY WAS MADE 

417 LISTING DESIRED Y/N 

418 NEUMONIC TABLE DESIRED Y/N 

419 INTERNAL TABLE DESIRED Y/N 



* 
* 

* 
* 

* 

* 

* 
* 
# 

* 

* 
* 
* 

* 

* 

* 

* 
* 
* 
* 

* 

# 



9-1 



209-415 

10J4 

609-417 

209-411 

10J3 

609-418 

209-419 

40W31 

109-900 

20W31 

431V21 

109-10 

20^21 

40W22 

109-901 

20W22 

40W25 

109-11 

20W25 

40W30 

109-5 21 

109-520 

J121 
51W34 
10H2 

J2 
11H5 
209-414 
709-1 
10H2 

J126 
40H0 
109-902 

J6 

J112 
109-903 

J6 
4CH0 

J113 
40H0 
10H2 

J6 

J200 

J6 

J9 

J75 
20W34 

J154 
40W9 

9-680 

9-500 
10J4 
10 9 
10 9 
10J4 

J90 

J54 



LIPL 






0010 


LIPL 


SET 


UP 


0C20 


LIPL 


SET 


UP 


0030 


LIPL 


SET 


UP 


0040 


LIPL 


SET 


UP 


0050 


LIPL 


SET 


UP 


CC60 


LIPL 


SET 


UP 


0070 


LIPL 


SET 


UP 


0080 


LIPL 


SET 


UP 


0090 


LIPL 


SET 


UP 


0100 


LIPL 


SET 


UP 


cue 


LIPL 


SET 


UP 


0120 


LIPL 


SET 


UP 


0130 


LIPL 


SET 


UP 


0140 


LIPL 


SET 


UP 


0150 


LIPL 


SET 


UP 


0160 


LIPL 


SET 


UP 


0170 


LIPL 


SET 


UP 


0180 


LIPL 


SET 


UP 


Ui90 


LIPL 


SET 


UP 


0200 


LIPL 


SET 


UP 


0210 


LIPL 


SET 


UP 


0220 


LIPL 


SET 


UP 


0230 


LIPL 


SET 


UP 


0240 


LIPL 


SET 


UP 


0250 


LIPL 


SET 


UP 


0260 


LIPL 


SET 


UP 


0270 


LIPL 


SET 


UP 


0280 


LIPL 


SET 


UP 


0290 


LIPL 


SET 


UP 


03C0 


LIPL 


SET 


UP 


0310 


LIPL 


SET 


UP 


0320 


LIPL 


SET 


UP 


0330 


LIPL 


SET 


UP 


0340 


LIPL 


SET 


UP 


03 50 


LIPL 


SET 


UP 


0360 


LIPL 


SET 


UP 


0370 


LIPL 


SET 


UP 


0380 


LIPL 


SET 


UP 


0390 


LIPL 


SET 


UP 


0400 


LIPL 


SET 


UP 


0410 


LIPL 


SET 


UP 


0420 


LIPL 


SET 


UP 


0430 


LIPL 


SET 


UP 


0440 


LIPL 


SET 


UP 


0450 


LIPL 


SET 


UP 


0460 


LIPL 


SET 


UP 


0470 


LIPL 


SET 


UP 


0480 


LIPL 


SET 


UP 


0490 


LIPL 


SET 


UP 


0500 


LIPL 


SET 


UP 


0510 


LIPL 


SET 


UP 


0520 


LIPL 


SET 


UP 


05 JO 


LIPL 


SET 


UP 


0540 


LIPL 


SET 


UP 


055O 


LIPL 


SET 


UP 


0560 


LIPL 


SET 


UP 


0570 


LIPL 


SET 


UP 


058C 


LIPL 


SET 


UP 


0590 
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* 


5C0-799 SUBROUTINES 




* 


* 




9-100 




LIPL 


SET 


OP 


0600 


500 


FIND CURRENT CHARACTER 




* 


# 




J34 




LIPL 


SET 


UP 


0610 


510 


FIND NEXT CHARACTER 




* 


* 




30W9 




LIPL 


SET 


UP 


0620 


520 


CREAT A CELL IN HO 




* 


* 




J154 




LIPL 


SET 


UP 


0630 


530 


SCAN FOR NEXT ) » = OR BLANK* 


* 




J155 




LIPL 


SET 


UP 


0640 


540 


SCAN FOR NEXT ) » OR BLANK 


* 


* 




9-700 




LIPL 


SET 


JP 


0650 


560 


PUT SYMBOL IN HO — LETTER 




* 


* 




Jli-4 




LIPL 


SET 


UP 


0660 


580 


PUT SYMBOL IN HO — 6-. 9+ 




* 


* 




J155 




LIPL 


SET 


UP 


0670 


60 


ERASE* COPY IF REQUIRED 




* 


* 




9-790 




LIPL 


SET 


UP 


0680 


620 


SET OCTAL DATA IN <0) 




* 


* 




J154 




LIPL 


SET 


UP 


0690 


630 


SET NUMERIC DATA IN (0) 




* 


* 




J155 




LIPL 


SET 


JP 


0700 


650 


SET 3CD DATA IN (0) 




* 


* 




019-414 




LIPL 


SET 


UP 


0710 


680 


READ» PRINT A CARD 




* 


* 




709-2 




LIPL 


SET 


JP 


0720 


700 


PRINT, ERASE PRINT LIST 




* 


* 




11W34 




LIPL 


SET 


JP 


0730 


750 


SKIP COMMENT OR SET COPY 


FLG* 


* 




10H2 




LIPL 


SET 


JP 


0740 


760 


AD 2 LIST 1W0, SET P. G 




* 


* 




J2 




LIPL 


SET 


JP 


0750 


770 


AD AN EMPTY CELL 2 LIST 


1W0 


* 


* 




70 


9-2 


LIPL 


SET 


JP 


0760 


780 


ERASE PRINT LIST 




* 


* 




11W34 




LIPL 


SET 


UP 


0770 


790 


PRINT INTERNAL, NEUMONIC 


T3L* 


* 




10H2 




LIPL 


SET 


UP 


0780 


* 


800-899 NEGATIVE INTEGERS 


* 


* 




J61 




LIPL 


SET 


UP 


0790 


* 


900-999 POSITIVE INTEGERS 


* 


* 




J197 




LIPL 


SET 


JP 


0800 


*************************#*****■** 


* 




10H2 




LIPL 


SET 


UP 


0810 










* 




20W34 




LIPL 


SET 


JP 


0820 










* 


9-2 


30W21 




LIPL 


SET 


UP 


0830 










* 




30W22 




LIPL 


SET 


UP 


0840 










* 




30W2 5 




LIPL 


SET 


UP 


0850 










* 




30W30 




LIPL 


SET 


JP 


0860 










* 




30W31 




LIPL 


SET 


JP 


0870 






******* 




119-415 


Jl 


LIPL 


SET 


UP 


0880 






**END** 


9-10 


+ 01 


1 


LIPL 


SET 


UP 


0890 






******* 


9-11 


+ 01 


1 


LIPL 


SET 


JP 


0900 


9- 


100 BRANCH ON CURRENT CHARACTER 


9-100 1C9-101 




LIPL 


9-100 


0910 






* 








11W9 




LIPL 


9-100 


0920 




IF LETTER GO TO 9-105 


* 








J10 




LIPL 


9-K 


:o 


0930 




IF 8 GO TO 9-106 


* 








70 


Jl 


LIPL 


9-1! 


;o 


0940 




IF 9 GO TO 9-107 


* 








11W9 




LIPL 


9-1* 


jQ 


0950 




IF + GO TO 9-134 


* 








J130 




LIPL 


9-100 


0960 




IF - GO TO 9-135 


* 








709-155 


9-105 


LIPL 


9-100 


0970 




IF $ GO TO 9-136 


* 






9-1C 


1+ 9-102 





LIPL 


9-li 




0980 




IF / GO TO 9-137 


* 






9-1C2+ 




LIPL 


9-1: 


;o 


0990 




IF . GO TO 9-15i 


* 






9-1C' 


3+ * 




LIPL 


9-l> 


:o 


1000 




IF ( GO TO 9-152 


* 








+ 9-1C4 




LIPL 


9-li 


00 


1010 




IF , GO TO 9-167 


* 








+ + 




LIPL 


9-luO 


1020 




IF • GO TO 9-166 


* 








+ 9-134 




LIPL 


9-1'. 


jO 


1030 




IF ) GO TO J4 


* 








+ - 




LIPL 


9-1: 


jO 


1040 




IF OCTAL GO TO 9-155 


* 








+ 9-135 




LIPL 


9-1 





1050 






* 








+ . 




LIPL 


9-1 


00 


1060 






* 








+ 9-151 




LIPL 


9-1 


JO 


1070 




NOTE— IT IS IMPOSSIBLE 


* 








+ , 




LIPL 


9-1' 


00 


1080 




FOR THE CURRENT 


* 








+ 9-167 




LIPL 


9-100 


1090 




CHARACTER TO BE AN 


# 








+ $ 




LIPL 


9-1, 


00 


1100 




t=t AT THIS POINT 


* 








+ 9-136 




LIPL 


9-100 


1110 




IN THE PROGRAM. 


* 








+ ) 




LIPL 


9-1, 


.0 


1120 






* 








+ J4 




LIPL 


9-1 


30 


1130 






* 








+ ( 




LIPL 


9-1, 


00 


11.40 






* 








+ 9-152 




LIPL 


9-1 


00 


1150 






* 








+ • 




LIPL 


9-1C0 


1160 






* 








+ 9-166 




LIPL 


9-100 


1170 






* 








+ / 




LIPL 


9-1 





1180 






* 








+ 9-137 




LIPL 


9-1 


00 


1190 
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* +6 LIPL 9-1C0 1200 

* + 9-106 LIPL 9-1G0 1210 

* +9 LIPL 9-1G0 1220 
** + 9-107 LIPL 9-100 1230 

104 FIND NEXT CHARACTER 9-104 9-510 LIPL 9-100 1240 

105 IF COPY FLAG IS ON, 9-105 019-404 LIPL 9-100 1250 

GO TO 9-120 70 9-120 LIPL 9-1C0 1260 

PUT SYMBOL IN HO 9-560 LIPL 9-100 1270 

IF NOT A PSEUDO, GO TO 9-110 70 9-110 LIPL 9-100 1280 

EXECUTE PSEUDO Jl LIPL 9-100 1290 

STOP IF PSEUDO LEAVES H5 - 70 LIPL 9-100 1300 

FIND CURRENT CHARACTER.GO 9-100 9-500 9-100 LIPL 9-100 1310 

120 ADD AN EMPTY CELL TO LIST lWu 9-120 9-770 LIPL 9-100 1320 

CREAT A CELL IN HO 9-520 LIPL 9-100 1330 

PUT SYMBOL IN HO, GO TO 9-131 9-560 9-131 LIPL 9-100 1340 

106 IF COPY FLAG IS ON, 9-106 019-404 LIPL 9-100 1350 

GO TO 9-108 70 9-108 LIPL 9-100 1360 

PUT J3 IN HO 10J3 LIPL 9-100 1370 

PUT SYMBOL IN HO, GO TO 9-110 9-560 9-110 LIPL 9-100 1380 

107 IF COPY FLAG IS ON, 9-107 019-404 LIPL 9-100 1390 

GO TO 9-109 70 9-109 LIPL 9.-100 1400 

PUT J4 IN HO 10J4 LIPL 9-100 1410 

PUT SYMBOL IN HO 9-580 9-11C LIPL 9-100 1420 

108 ADD AN EMPTY CELL TO LIST 1W0 9-108 9-770 LIPL 9-100 1430 
CREAT A CELL IN HO 9-520 LIPL 9-100 1440 
PUT J3 IN HO 10J3 LIPL 9-100 1450 
PUT SYMBOL IN HO, GO TO 9-131 9-580 9-131 LIPL 9-100 1460 

109 ADD AN EMPTY CELL TO LIST 1W0 9-109 9-770 LIPL 9-100 1470 
CREAT A CELL IN HO 9-520 LIPL 9-100 1480 
MAKE IT LOCAL J136 LIPL 9-100 1490 
PUT J4 IN HO 10J4 LIPL 9-100 1500 
PUT SYMBOL IN HO, GO TO 9-131 9-580 9-131 LIPL 9-100 1510 

110 FIND CURRENT CHARACTER 9-110 9-500 LIPL 9-100 1520 

111 BRANCH ON CURRENT CHARACTER**** 9-111 109-112 LIPL 9-100 1530 

* 11W9 LIPL 9-100 1540 
IF ' GO TO 9-114 * J10 LIPL 9-100 1550 
IF = GO TO 9-115 * 70 Jl LIPL 9-100 1560 

* 9-760 9-100 LIPL 9-100 1570 
ELSE ADD (0) TO LIST * 9-112+ 9-113 LIPL 9-100 1580 

AND GO TO 9-100 * 9-113+ LIPL 9-100 1590 

* + • LIPL 9-100 1600 

* + 9-114 LIPL 9-100 1610 

* + = LIPL 9-100 1620 
** + 9-115 LIPL 9-100 1630 

114 SKIP COMMNT OR SET COPY, 9-111 9-114 9-750 9-111 LIPL 9-100 1640 

115 FIND NEXT CHARACTER 9-115 9-510 LIPL 9-100 1650 

116 BRANCH ON CURRENT CHARACTER**** 9-116 109-117 LIPL 9-100 1660 

* 11W9 LIPL 9-100 1670 
IF LETTER GO TO 9-123 * J10 LIPL 9-100 1680 
IF • GO TO 9-119 * 709-123 Jl LIPL 9-100 1690 
IF + GO TO 9-141 * 9-117+ 9-118 LIPL 9-100 1700 
IF - GO TO 9-142 * 9-118+ LIPL 9-100 1710 
IF $ GO TO 9-143 * + ' LIPL 9-100 1720 
IF / GO TO 9-144 * + 9-119 LIPL 9-100 1730 
IF 8 GO TO 9-125 * + . LIPL 9-100 1740 
IF 9 GO TO 9-126 * + 9-121 LIPL 9-100 1750 
IF * GO TO 9-122 * + + LIPL 9-100 1760 
IF ( GO TO 9-153 * + 9-141 LIPL 9-100 1770 
IF . GO TO 9-121 * + - LIPL 9-100 1780 
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119 
121 

122 
123 



124 



125 
126 
127 



128 
129 
131 



NOTE — IT IS IMPOSSIBLE 
FOR THE CURRENT 
CHARACTER TO BE AN 
OCTAL» AN • = • . A 
• ) • » OR A ' i • AT 
THIS POINT IN THE 
PROGRAM. 



SKIP COMM 
SET ERASE 

GO 
FIND NEXT 
IF COPY F 

GO 
PUT SYMBO 
PUT SYMBO 
IF NOT A 
EXECUTE P 
STOP IS P 
FIND CURR 
PUT J3 IN 
PUT J4 IN 
IF COPY F 

GO 
PUT SYMBO 
PUT SYMBO 
WORK CELL 



NT OR S 

FLAG 

TO 9-1 

CHARAC 
LAG IS 

TO 9-1 
L IN HO 
L IN HO 
PSEUDO. 
SEUDO 
SEUDO L 
ENT CHA 

HO. GO 

HO 
LAG IS 

TO 9-1 
L IN HO 
L IN HO 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
** 
ET COPY. 9-116 

15 

TER 

NOT ON. 

24 

. GO TO 9-131 • 

GO TO 9-132 



EAVES H5 

RACTER.G 

TO 9-12 

NOT ON 

28 

» GO TO 

. GO TO 



9-116 
7 



9-131 
9-132 



***** 



9-119 
9-121 

9-122 
9-123 



9-124 



9-125 
9-126 
9-127 



9-128 
9-129 
9-131 



AT THIS 
PROGRAM 
INTERNA 
COPY OF 
NAMED B 
SYMBOL 
2ND LAS 
THE 'NA 
WANTS T 
(1) IS 
TO (0) 
TO THE 
CELL ON 
WHICH ( 
IS INSE 
PRINT L 
THE COP 
ORGINAL 
OF THE 
BY THE 
PRINT L 



POINT 
(0) IS 

L NAME 
THE ST 

Y THE L 
READ. 

T SYMBO 
ME* THE 
HE COPY 
MADE ID 
AND (1) 
LIST 1W 
LIST 1 
1) IS P 
RTED IN 
1ST JUS 

Y AND T 
NAME 

COPY IS 

SYMBOL 

1ST. 



IN THE 

THE 
OF A. 
RUCTURE 
AST 

(1) IS THE 
L READ — 

USER 

TO HAVE. 
ENTICAL 

IS ADDED 
0. THE 
WO INTO 
LACED 
TO THE 
T BEFORE 
HE 

REPLACED 
(1) ON THE 



THEN THE CURRENT 
CHARACTER IS FOUND 
AND THE PROGRAM LINKS 
TO 9-100.- 



9-138 
9-139 



9-142 
S 

9-143 

/ 

9-144 

8 
9-125 

9 
9-126 
* 

9-122 

( 

9-153 

9-750 
10J4 
209-405 

9-510 
019-404 
709-124 

9-560 

9-560 
70 

Jl 
70 

9-500 
10J3 
10J4 
019-404 
709-128 

9-580 

9-580 
+ 
209-129 
209-133 
119-129 
119-133 

J121 

J8 
01W1 
70 

119-129 
11W0 

J197 
119-129 

J124 
20W0 
10J3 
20W1 
119-133 
21WC 
119-416 

J60 
209-416 
419-416 
11W0 
219-416 
119-416 

J60 

J60 
209-416 




9-116 

9-115 



9-131 



9-132 



9-116 
9-127 



9-131 
9-132 




9-138 



9-139 



IPL 
I PL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 
IPL 



100 
100 
•100 
100 
100 
100 
100 
•100 
100 
100 
100 
100 
100 
•100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 



1790 

1800 
1810 
1320 
1830 
1840 
1850 
1860 
1870 
1S&0 
1890 
1900 
1910 
192 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
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* 
** 


132 


(0) IS A NEURONIC AND ***** 




(1) IS A SYM30L. (0) * 




IS MADE EQUIVALENT TO * 




(1) IN THE NEUMOMC * 




TABLE. THE PROGRAM * 




THEN LINKS TO 9-110. * 

* 




** 


133 


WORKING CELL 


134 


ADD AN EMPTY CELL TO LIST 1W0 




CREAT A CELL IN HO 




MAKE IT LOCAL* GO TO 9-141 


135 


ADD AN EMPTY TO LIST 1WC 




CREAT A CELL IN HO 




MAKE IT LOCAL. GO TO 9-142 


136 


ADD EN EMPTY CELL TO LIST 1W0 




CREAT A CELL IN HO 




MAKE IT LOCAL, GO TO 9-143 


137 


ADD AN EMPTY CELL TO LIST 1WC 




CREAT A CELL IN HO 




MAKE IT LOCAL, GO TO 9-144 


141 


ADD (0) TO LIST lVvG , 




LEAVE ( 0) , GO TO 9-145 


145 


ADD (0) TO LIST 1W0 . 




LEAVE ( 0) , GO TO 9-146 


143 


ADD (0) TO LIST 1W0 , 




LEAVE ( 0) , GO TO 9-147 


144 


ADD (0) TO LIST 1'wO ♦ 




LEAVE (C) , GO TO 9-148 


145 


SET NEUMERTC DATA IN (0) 




POP HO. GO TO 9-149 


146 


SET NEUMERIC DATA IN (G) 




MAKE (0) NEGATIVE- 




POP HO, GO TO 9-149 


147 


SET BCD DATA IN (0) 




POP HO. GO TO 9-149 


148 


SET OCTAL DATA IN (0) 




POP HO, GO TO 9-149 


149 


FIND CURRENT CHARACTER, GO 9-100 


151 


SET ERASE FLAG 



FIND NEXT CHARACTER. GO TO 9-1C0 
152 ADD EN EMPTY CtLL TO LIST lWu 

CREAT A CELL IN HO 

MAKE IT LUCAL 
153 

ADD (0) TO LIST 1WQ 

IF (0) IS NOT REGIONAL, 

GO TO 9-154 
IF NOT AT THE TOP LEVEL, 

GO TO 9-154 
RESET LOCAL SYMBOL TABLE ***** 

* 







119-133 






LIPL 


9-] 


.00 


2390 






219-416 






LIPL 


9-] 


lOO 


2400 






9-500 


9- 


-100 


LIPL 


9-] 


lOO 


2410 


9- 


-132 


J6 






LIPL 


9-] 


LC0 


2420 






209-129 






LIPL 


9-] 


100 


2430 






109-400 






LIPL 


9-] 


LOO 


2440 






J6 






LIPL 


9-: 


LOO 


2450 






J62 






LIPL 


9-: 


LOO 


2460 






209-133 






LIPL 


9-: 


LOO 


2470 






119-129 






LIPL 


9-: 


LOO 


2480 






619-133 


9- 


-lio 


LIPL 


9-1 


LOO 


2490 


9- 


-133+ 





LIPL 


9-3 


LOO 


2500 


9- 


-134 


9-770 






LIPL 


9-: 


LOO 


2510 






9-520 






LIPL 


9-] 


LOO 


2520 






J136 


9- 


-141 


LIPL 


9-3 


LOO 


2530 


9- 


-135 


9-770 






LIPL 


9-] 


LOO 


2540 






9-520 






LIPL 


9-] 


lOO 


2550 






J136 


9- 


-142 


LIPL 


S-] 


.00 


2560 


9- 


-136 


9-770 






LIPL 


9-] 


LOO 


2570 






9-520 






LIPL 


9-: 


LOO 


2580 






J136 


9- 


-143 


LIPL 


9-] 


LCO 


2590 


9- 


-137 


9-770 






LIPL 


9-] 


lOO 


2600 






9-520 






LIPL 


9-] 


.00 


2610 






J136 


9- 


-144 


LIPL 


9-] 


.00 


2620 


9- 


-141 


40H0 






LIPL 


9-] 


.00 


2630 






9-760 


9- 


-145 


LIPL 


9-] 


.00 


2640 


9- 


-142 


4OH0 






LIPL 


9-] 


LOO 


2650 






9-760 


9- 


•146 


LIPL 


9-] 


lOO 


2660 


9- 


-143 


40HC 






LIPL 


9-] 


LOO 


2670 






9-760 


9- 


•147 


LIPL 


9-] 


.00 


2680 


9- 


-144 


40H0 






LIPL 


9-] 


LOO 


2690 






9-760 


9- 


-148 


LIPL 


9-; 


LOO 


2700 


9- 


-145 


9-630 






LIPL 


9-] 


LOO 


2710 






J8 


9- 


-149 


LIPL 


9-3 


LOO 


2720 


9- 


-146 


9-630 






LIPL 


9-3 


LOO 


2730 






J123 






LIPL 


9-: 


LOO 


2740 






J8 


9- 


-149 


LIPL 


9-: 


LOO 


2750 


9- 


-147 


9-650 






LIPL 


9-3 


LOO 


2760 






J8 


9- 


-149 


LIPL 


9-3 


LOO 


2770 


9- 


-148 


9-620 






LIPL 


9-3 


LOO 


2780 






J8 


9- 


-149 


LIPL 


9-3 


LOO 


2790 


9- 


-149 


9-500 


9- 


-100 


LIPL 


9-3 


lOO 


2800 


9- 


-151 


10J4 






LIPL 


9-3 


LOO 


2810 






209-405 






LIPL 


9-] 


.00 


2820 






9-510 


9- 


-100 


LIPL 


9-3 


.00 


2830 


9- 


-152 


9-770 






LIPL 


9-3 


i00 


2840 






9-520 






LIPL 


9-3 


.00 


2850 






J136 






LIPL 


9-] 


.00 


2860 


9- 


-153 


609-129 






LIPL 


9-3 


LOO 


2870 






9-760 






LIPL 


9-3 


LOO 


2860 






119-129 






LIPL 


9-3 


LOO 


2890 






J13C 






LIPL 


9-3 


.00 


2900 






709-154 






LIPL 


9-3 


LOO 


2910 






01W4 






LIPL 


9-] 


.00 


2920 






709-154 






LIPL 


0-1 


LCO 


2930 






109-402 






LIPL 


9-3 


LOO 


2940 






J80 






LIPL 


9-3 


LOO 


2950 






709-154 






LIPL 


9-3 


LOO 


2960 






J71 






LIPL 


9-] 


.00 


2970 
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* 10 LIPL 9-100 2960 
** 209-402 LIPL 9-100 299C 

154 SET UP W0-W4 FOR 5UBLI3T ***** 9-154 10J3 LIPL 9-100 3000 

* 10 9 LIPL 9-100 3010 

* 10 9 LIPL 9-1G0 3020 

* 10J4 LIPL 9-100 3030 

* 119-129 LIPL 9-100 3040 
** J54 LIPL 9-100 3C50 

FIND NEXT CHARACTER 9-510 LIPL 9-1C0 3060 

PUT 'BEGIN SU3LIST' SYMBOL ON 119-407 LIPL 9-100 3070 

PRINT LIST 109-409 LIPL 9-1C0 3080 

J65 LIPL 9-100 3090 

DO 9-10C RECURSIVELY 9-100 LIPL 9-100 3100 

PUT 'END SUBLIST' SYMBOL ON 119-407 LIPL 9-100 3110 

PRINT LIST 109-410 LIPL 9-100 3120 

J65 LIPL 9-1C0 3130 

POP W0-W4 J34 LIPL 9-100 3140 

STOP IF H5 - 70 LIPL 9-100 3150 

FIND NEXT CHARACTER. GO TO 9-149 9-510 9-149 LIPL 9-100 3160 

155 PUT CURRENT CHARACTER IN HO 9-155 11W9 LIPL 9-100 3170 
FIND NEXT CHARACTER 9-510 LIPL 9-100 3160 
IF BLANK(S), GO TO 9-164 709-164 LIPL 9-100 3190 

156 BRANCH ON CURRENT CHARACTER**** 9-156 109-157 LIPL 9-100 3200 

* 11W9 LIPL 9-1C0 3210 
IF OCTAL <jO TO 9-162 * J10 . LIPL 9-1C0 3220 
IF ' GO TO 9-159 * 70 J 1 LIPL 9-100 3230 
IF , GO TO 9-164 * 11W9 LIPL 9-100 3240 
IF ) GO TO 9-164 * J130 LIPL 9-100 3250 

* 709-162 9-161 LIPL 9-100 3260 
ELSE GO TO 9-161 * 9-157+ 9-158 LIPL 9-100 3270 

* 9-158+ LIPL 9-100 3280 

* + < LIPL 9-100 3290 

* + 9-159 LIPL 9-100 3300 

* + . LIPL 9-100 3310 

* + 9-164 LIPL 9-100 3320 

* + ) LIPL 9-100 3330 

* + 9-164 LIPL 9-100 3340 

* +6 LIPL 9-100 3350 

* + 9-161 LIPL 9-10C 3360 

* +9 LIPL 9-100 3370 
** + 9-161 LIPL 9-100 3380 

159 SKIP COMMNT OR SET COPY. 9-116 9-159 9-750 9-156 LIPL 9-lOC 3390 

161 PUT (0) IN W3 <Q)» GO TO 9-1C0 9-161 20W3 9-100 LIPL 9-100 3400 

162 PUT CURRENT CHARACTER IN W3 (0) 9-162 11W9 LIPL 9-100 3410 
AND (0) IN W2 (P) 20W3 LIPL 9-100 3420 

20W2 LIPL 9-1C0 3430 

FIND NEXT CHARACTER 9-510 LIPL 9-100 3440 

IF NO BLANMS). GO TO 9-165 70 9-16 c i LIPL 9-100 3450 

163 PUT AN INTERNAL ZERO IN hO 9-163 10 C LIPL 9-100 3460 

J138 LIPL 9-100 3470 

164 ADD (0) TO LIST 1W0.GO TO 9-100 9-164 9-760 9-100 LIPL 9-100 3480 

165 IS CURRENT CHARACTER ZERO 9-165 11W9 LIPL 9-100 3490 

10 C LIPL 9-100 3500 

J2 LIPL 9-100 3510 

IF NOT. GO TO 9-100 709-100 LIPL 9-100 3520 

IF SO, FIND NEXT CHAR. GO 9-163 9-510 9-163 LIPL 9-100 3530 

166 SKIP COMMNT OR SET COPY. 9-116 9-166 9-750 9-100 LIPL 9-100 3540 

167 FIND NEXT CHARACTER 9-167 9-51.0 LIPL 9-100 3550 
166 BRANCH ON CURRENT CHARACTER**** ?-16b 109-169 LIPL 9-100 3560 

* 11W9 LIPL 9-100 3570 
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IF LETTER GO TO 9-175 * JIO LIPL 9-100 3580 

IF 8 GO TO 9-176 * 7C9-175 Jl LIPL 9-100 3590 

IF 9 GO TO 9-177 * 9-169+ 9-171 LIPL 9-100 3600 

IF » GO TO 9-172 * 9-171+ LIPL 9-100 3610 

IF . GO TO 9-173 * + » LIPL 9-100 3620 

IF * GO TO 9-174 * + 9-172 LIPL 9-100 3630 

* +8 LIPL 9-100 3640 

NOTE—IT IS IMPOSSIBLE * + 9-176 LIPL 9-100 3650 

FOR THE CURRENT * +9 LIPL 9-100 3660 

CHARACTER TO Bt AN * + 9-177 LIPL 9-1C0 3670 

OCTAL, AN ' = ', A •(• * + . LIPL 9-100 3680 

A i)i, A •+«, A '-•, * + 9-173 LIPL 9-100 3690 

A '/', OR A '$' AT THIS * + * LIPL 9-100 3700 

POINT IN THE PROGRAM. ** + 9-174 LIPL 9-100 3710 

172 SKIP COMMNT OR SET COPY, 9-168 9-172 9-750 9-168 LIPL 9-1C0 3720 

173 SET ERASE FLAG 9-173 10J4 LIPL 9-100 3730 

209-405 LIPL 9-100 3740 

FIND NEXT CHARACTER, GO TO 9-168 9-510 9-166 LIPL 9-100 3750 

174 FIND NEXT CHARACTER 9-174 9-510 LIPL 9-100 3760 

175 PUT SYMBOL IN HO, GO TO 9-179 9-175 9-560 9-179 LIPL 9-100 3770 

176 PUT J3 IN HO, GO TO 9-178 9-176 10J3 9-178 LIPL 9-100 3780 

177 PUT J4 IN HO 9-177 10J4 LIPL 9-100 3790 

178 PUT SYMBOL IN HO 9-178 9-580 LIPL 9-100 3800 

179 SET LINK OF CELL 1W0 TO (0) 9-179 40H0 LIPL 9-100 3810 

11W0 LIPL 9-100 3820 

J197 LIPL 9-100 3830 

PUT (0) INTO WO 20W0 LIPL 9-100 3840 

SET Wl (EMPTY FLAG) TO PLUS 10J4 LIPL 9-100 3850 

20W1 LIPL 9-100 3860 

FIND CURRENT CHARACTER, GO 9-100 9-500 9-100 LIPL 9-100 3870 

200 'NEUMONIC TABLE" 9-200+ LIPL PRINT LTS3880 

+ 9-202 LIPL PRINT LTS3890 

+ 9-203 LIPL PRINT LTS3900 

9-201+ 9-204 LIPL PRINT LTS3910 

+ 9-205 LIPL PRINT LTS3920 

9-202+21NEUM LIPL PRINT LTS3930 

9-203+210NIC LIPL PRINT LTS3940 

9-204+21 TAB LIPL PRINT LTS3950 

9-205+21LE LIPL PRINT LTS3960 

210 "INTERNAL TBLE' 9-210+ LIPL PRINT LTS3970 

+ 9-211 LIPL PRINT LTS3980 

+ 9-212 9-201 LIPL PRINT LTS3990 

9-211+21INTE LIPL PRINT LT54000 

9-212+21RNAL LIPL PRINT LTS4010 

9-221+21ERROR LIPL PRINT LTS4020 

9-222+21 — NO LIPL PRINT LTS4030 

9-223+21 MORE LIPL PRINT LTS4040 

9-224+21 CARD LIPL PRINT LTS4050 

9-225+21S ON LIPL PRINT LTS4060 

9-226+21 UNIT LIPL PRINT LTS4070 

9-227+21 1W18 LIPL PRINT LTS4080 

9-228+21 — LIP LIPL PRINT LTS4090 

9-229+21L REA LIPL PRINT LTS4100 

9-230+21D GRO LIPL PRINT LTS4110 

9-231+21UP IN LIPL PRINT LTS4120 

9-232+21COMPL LIPL PRINT LTS4130 

9-233+21ETE LIPL PRINT LTS4140 

220 'ERROR — NO MORE CARDS' 9-220+ LIPL PRINT LTS4150 

+ 9-221 LIPL PRINT LTS4160 
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+ 9-222 LIPL PRINT LTS4170 

+ 9-223 LIPL PRINT LTS418G 

+ 9-224 LIPL PRINT LTS4190 

+ 9-225 LIPL PRINT LTS4200 

+ 9-226 LIPL PRINT LTS4210 

+ 9-227 LIPL PRINT LTS4220 

+ 9-228 LIPL PRINT LTS4230 

+ 9-229 LIPL PRINT LTS4240 

+ 9-230 LIPL PRINT LTS4250 

+ 9-231 LIPL PRINT LTS4260 

+ 9-232 LIPL PRINT LTS4270 
+ 9-233 LIPL PRINT LTS4230 

300 PSEUDOS 9-300+ 9-301 LIPL PSEUDOS 4290 

+ 9-311 LIPL PSEUDOS 4300 

+ 9-302 LIPL PSEUDOS 4310 

+ 9-312 LIPL PSEUDOS 4320 

+ 9-303 LIPL PSEUDOS 4330 

+ 9-313 LIPL PSEUDOS 4340 

+ 9-304 LIPL PSEUDOS 4350 

+ 9-324 LIPL PSEUDOS 4360 

+ 9-305 LIPL PSEUDOS 4370 

+ 9-315 LIPL PSEUDOS 4380 

+ 9-3C6 LIPL PSEUDOS 4390 

+ 9-316 LIPL PSEUDOS 4400 

+ 9-307 LIPL PSEUDOS 4410 

+ 9-317 LIPL PSEUDOS 4420 

+ 9-308 LIPL PSEUDOS 4430 

+ 9-318 LIPL PSEUDOS 4440 

+ 9-309 LIPL PSEUDOS 4450 

+ 9-319 LIPL PSEUDOS 4460 

+ 9-310 LIPL PSEUDOS 4470 

+ 9-320 LIPL PSEUDOS 4480 

9-301+21ND LIPL PSEUDOS 4490 

9-302+21DT LIPL PSEUDOS 4500 

9-303+21RT LIPL PSEUDOS 4510 

9-304+21GT LIPL PSEUDOS 452C 

9-305+21KN LIPL PSEUDOS 4530 

9-306+21RI LIPL PSEUDOS 4540 

9-307+21PN LIPL PSEUDOS 4550 

9-308+21PI LIPL PSEUDOS 4560 

9-309+21NL LIPL PSEUDOS 4570 

9-310+21TR LIPL PSEUDOS 4580 

311 PStUDO 'ND« — STOP PROGRAM 9-311 J3 LIPL PSEUDOS 4590 

312 PSUDDO'DT' — SET DATA MODE FLG+ 9-312 10J4 LIPL PSEUDOS 4600 

209-411 J4 LIPL PSEUDOS 4610 

313 PSEUDO 'RT' — SET DATA FLG MODE- 9-313 10J3 LIPL PSEUDOS 4620 

209-411 J4 LIPL PSEUDOS 4630 

315 PSEUDO 'k,N' — ERASE NEUMONIC TBL 9-315 109-400 LIPL PSEUDOS 4640 

9-321 J60 LIPL PSEUDOS 4650 

709-322 LIPL PSEUDOS 4660 

12H0 LIPL PSEUDOS 4670 

J9 LIPL PSEUDOS 4630 

J60 9-321 LIPL PSEUDOS 4690 

9-322 509-400 LIPL PSEUDOS 4700 

J75 LIPL PSEUDOS 4710 

J71 J4 LIPL PSEUDOS 4720 

316 PSEUDO 'RI'— ERASE INTERNAL TBL 9-316 109-403 LIPL PSEUDOS 473C 

J15 J4 LIPL PSEUDOS 4740 

317 PSEUDO 'PN' — SET FLAG 9-418 + 9-317 10J4 LIPL PSEUDOS 4750 

209-418 J4 LIPL PSEUDOS 4760 
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313 PSEUDO 'PI' — StT FLAG 9-419 + 

319 PSEUDO '!\L> — SET -LAG 9-417 - 

320 PSEUDO 'TR' — TRACE LIPL 
LIPL DEBUGGING AID 
TURNS ON FULL TRACE 

324 PSEUDO ' GT' — FIND N EXT 

SYM30L> PUT IT IN 9-415, 
AND STOP PROGRAM 



MNEMONIC TAoLE 

PSEUDO TA5LE 

LOCAL TABLE 

INTERNAL TAELF 

COPY FLAG 

ERASE FLAG 

PRINT LIST 

LAST CELL CF PRINT LIST 

DATA MODE F|_aG 

INTEGER CARD COUNT 

W32=H2 AT START Y/\ 

LINK TO THIS ROUTINE 

CELL IN PRT LIST sEFORE LAST CC 

LISTING DESIRED Y/N 

MNEMONIC TA6LE DESIRED Y/N 

INTERNAL TAaLE DESIRED Y/N 

S/R — FIND CURRENT CHARACTER 



IF CHARACTER IN PRINT LINE 1*2 4 

AT COLUMN 1W25 IS N0N-6LAN<, 

PUT IT IN w9 AND SET h5+. 

IF BLANK. FIND NEXT NCN-dLANK 

AND PUT IT IN */9 WITH H5-. 

READ AND PRINT CARDS IF NEEDED. 



PY 



•31c 
•319 
-32C 

•324 



9-325 



9- 
9- 
9- 
9- 

9- 

9- 

9- 

9- 

9- 

9- 

9- 

9- 

9- 

9- 

9- 



326 + 

327 + 

+ 
+ 
+ 
+ 
+ 

326 
329 

331 
332 



1CJ4 

209-419 

1GU3 

2C9-417 

109-901 

2 n 3 1 

C3J4 

9-500 
109-326 

ir.v9 
uio 

70 

9-560 
209-415 

9-327 

C 
* 

9-328 

9 
9-329 

g 

9-331 
9-510 

10J4 

1 0J3 
9-560 

209-415 



U4 

U4 



4CO + 

401 + 

402 + 

403 + 

404 + 
40 5 + 

406 + 

407 + 
411 + 
413+01 



U3 

J3 

9-406 
J4 



414+ 

415 + 

416 + 

417 + 

416 + 
419 + 

500 



S/R — FIND NEXT CHARACTER 

IF CHARACTER IN PRINT LINE 
AT 1W25 + 1 IS NON-BLANK, 
PUT IT IN *9 AND SET H5+. 



1 i\ 2 4 



9-501 



•510 
•511 




UC 

o 

U4 

J 3 

U3 
11*25 
109-961 

J115 
709-511 

w>166 
709-501 
20W9 
11W25 

U164 

08 
70°-511 

U186 
109-901 

J161 

9-boO 

U166 



Ul 
J3 




9-325 
9-332 



J3 


9-30 

C 

C 

C 

c 

G 








c 



9-512 
9-5 OC 



LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

L IPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LI PL 9 

LIPLO 

LIPL9 

LIPL9 

LIPL9 

L IPL9 



PSEuDOS 

PSEoDOS 

PSEUDCS 

PSEUDOS 

PSEUDOS 

PSEUDOS 

PSEUDOS 

PSEUDCS 

PSEUDOS 

PSEUDOS 

PSEUDCS 

PSEUDOS 

PSEUDOS 

PSEUDCS. 

PSEUDOS 

PSEuDOS 

PSEUDOS 

PSEUDOS 

PSEUDOS 

PSEUDOS 

PSEUDCS 

PSEUDOS 

PSEUDOS 

PSEUDOS 

PSEUDOS 

PSEuDOS 

^-ELDOS 

aORn CEi- 

*ORK CEL 

wORK. CEL 

WORK 

ivORK 



CEL 



<aCRK CEL 

WORK CEL 

WORK CEL 

wOkK CEL 

WORK CEL 

a R K CEL 

WORK CEL 

WORK CEL 

WORK CEL. 

a R K CEL 

iV R K CEL 



500/510 
-500/510 

- 5 C / 5 1 
-5CO/510 
-50^/510 
-500/510 

- 5 C C / 5 1 
-500/510 
-5CK-/51C 
-500/51 C 
-50-/510 
-500/510 
-50-/510 
-500/510 



4770 
47 6 
4790 
45 00 
4510 
4520 
433C 
484C 

45 5 
4660 
•+670 

46 oC 
4890 
4900 
491C 
4920 
4930 
49 40 

49 5 
4960 
4970 
4960 
4990 
5000 
50 1G 
5C20 

50 3 C 
S504C 
S5050 
S5C6C 
S507C 
S5C60 
S509C 
S51C0 
S511C 
S5120 
S51 30 
S514C 
S5150 
S5160 
S5170 
S5180 
551 90 

520C 
5210 
5220 
5230 
5240 
525C 
52 6 
527C 
5260 



5300 

5 32 
5330 

5340 
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9-512 
9-520 
9-521 



IF BLANK. FIND NEXT NON-BLANK 
AND PUT IT IN W9 WITH H5-. 
S/R— CREATE A CELL 

IF LIST 1W34 IS EMPTY, H2 IS 
PUT INTO W34 AND 9-520 BECOMES 
ROUTINE J90. 

OTHERWISE IT REMOVES THE FIRST 
LIST CELL, LEAVES IT IN HO, 
AND MAKES ITS LINK THE LINK OF 
1W34. THE CELL IS CLEARED. 

THE SYMBOL CREATED IS NEITHER 
LOCAL NOR INTERNAL. 



S/R — SCAN FOR ) OR , OR = OR BLANK 9-530 

SET 1W30 TO THE NEXT OCCURANCE 
OF ) OR , OR = OR BLANK. 
NO INPUTS OR OUTPUTS. 



9-522 



9-531 



9-532 



S/R — SCAN FOR ) OR , OR BLANK 

SET 1W30 TO THE NEXT OCCURANCE 
OF ) OR , OR BLANK. 
NO INPUTS OR OUTPUTS. 



9-533 



9-540 



709-501 
20W9 

9-521 
11W34 

J60 
7C9-522 
40H0 

J193 
11W34 

J197 
50H2 
20W34 
10J90 
1C9-520 

J121 

J8 
109-556 

J124 

J183 
109-557 

J124 
10, 

J185 
109-558 

J124 
10) 

J185 
109-559 

J124 
10 = 

J185 

J116 
709-532 

U116 
709-531 
109-559 
109-557 

J116 
709-554 
109-559 
109-556 

J116 
709-554 

J116 
709-533 
109-558 
109-557 

J116 
709-553 
109-558 
109-556 

J116 
709-553 
109-556 
J124 

J183 
109-557 

J124 
10) 

J185 



J3 





J124 



J90 



9-552 



9-551 



9-552 



9-551 



LIPL9 

LIPL9 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9 

LIPL9- 

LIPL9- 

LIPL9' 

LIPL9- 

LIPL9 

LIPL9 

LIPL9 



-500/510 

-500/510 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

9-520 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-53C/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/54C 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-530/540 

-53C/540 

-530/540 

-530/540 

-530/540 

-530/540 

-53U/54Q 

-530/540 



5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

54-70 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5630 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5660 

5890 

5900 

5910 

5920 

5930 

5940 

5950 
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S/R — OUTPUT SYMBOL GIVEN LETTER 

THIS ROUTINE ASSUMES THERE IS 

LETTER AT 1W25 AND THAT THE 

SYMBOL BEGINNING THERE IS 

TERMINATED BY ) OR , OR = OR 

BLANK. 

THE SYMBOL IS OUTPUT IN (0). 

IF THE SYMBOL IS A PSEUDO H5 



IS SET -. 

OTHERWISE SUBROUTINE 9-600, 
WHICH TAKES CARE OF ERASE AND 
COPY, IS FIRED AND H5 IS SET +. 
NEUMONIC LIST 9-40C IS USED. 
PSEUDO LIST 9-401 IS USED. 
SUBROUTINES 9-53C AND 9-60C ARE 
USED. ALSO 9-520. 



9-541 



9-551 
9-552 
9-553 
9-554 
9-555 
9-556 
9-557 
9-558 
9-559 
9-560 



9-561 



9-562 
9-563 
9-564 



9-565 



109-558 

J124 
10, 

J185 

J116 
709-541 
109-558 

J115 
709-553 
109-5 5 7 

J115 
709-552 
109-556 
109-537 
109-558 
109-559 
20W30 
+ 01 
+ 01 
+ 01 
+ 01 

9-530 
109-901 

J161 

J186 
109-801 

J161 
709-566 

J134 
70 

11W30 
109-901 

U114 
70 
109-568 

J182 
509-401 

J60 
709-563 
12HC 
109-56-8 

J114 
70 

J60 

J81 
509-400 

J60 
709-565 
12H0 
109-568 

J114 
70 

J60 
40H0 
109-568 

J120 

J136 

J65 

9-520 



9-551 



9-551 
9-555 
9-555 
9-555 
9-553 
C 








9-566 



9-566 



9-562 
9-561 
J3 



9-567 
9-564 



LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL9- 

LIPL 9 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 

LIPL 



530/540 

530/54C 

530/540 

530/540 

530/54C 

530/540 

530/540 

530/540 

530/540 

53C/540 

530/540 

530/540 

530/540 

530/540 

530/540 

530/540 

530/540 

530/540 

530/540 

530/540 

530/540 

-560 

-560 

560 

560 

560 
-560 
-560 
-56C 
-560 

560 
-560 
-560 
-560 
-560 

560 
-560 
-560 
-56C 
-560 

560 
-560 
-560 
-560 
-560 
-56C 

560 

560 

560 

560 

560 

560 

560 

56C 

560 

560 

560 

560 

560 



5960 

5970 

5980 

3990 

6000 

6C10 

6020 

6030 

604C 

60 50 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

64C0 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 
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s/R __OUTPJT SYMBOL GIVEN 8 OR 9 

IF (0) = J3 IT ASSUMES THAT 
THERE IS AN 8 AT 1W25. 
IF (0) = J4 IT ASSJMES A 9. 
IN EITHER CASE IT ASSUMES THE 
SYMBOL IS TERMINATED BY ) OR » 
CR = OR BLANK. 

THE SYMBOL IS OUTPUT IN (0). 
SUBROUTINE 9-600* WHICH TAKES 
CARE OF COPY AND ERASE. IS 
FIRED AND H5 IS SET + . 
LOCAL LIST 9-4u2 IS USED. 
INTERNAL LIST 9-403 IS USED. 
SUBROUTINES 9-520. 9-530» AND 
9-6GC ARE USED. 



J124 
J138 
609-569 

J65 
119-569 
9-566 J181 
9-567 J81 
9-568+21 
9-569+ 
9-580 209-594 
109-901 

J161 
109-581 
J186 
J10 
709-584 



9-581+ 
9-582+ 

+ 
+ 
+ 
+ 
+ 
+ 
9-583 

9-584 



9-585 
9-586 



9-587 



9-5J 



9-589 



9-600 
9-600 
9-600 





9-591 



9-582 



9-583 

• 

9-589 
/ 

9-591 
109-901 
U161 
9-530 
019-594 
709-583 
109-402 
109-<+03 

J181 
609-596 

U10 
70 

019-594 
709-587 
109-402 
9-520 
J124 
J136 
109-403 
9-520 
J124 
U138 
609-595 
119-596 

Ull 
119-595 
109-901 
J161 
9-530 
J 181 
019-594 
709-600 

J136 
109-901 
U161 
9-530 
109-901 



Ul 




9-586 



9-600 



9-588 



9-600 



9-600 



LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 



560 
560 
560 
560 
560 
560 
560 
■560 
■560 
580 
•580 
580 
560 
560 
•580 
■560 
•580 
■560 
■580 
•560 
•580 
.580 
•580 
•580 
•580 
•5b0 
•560 
•560 
•560 
•580 
■530 
•580 
•560 
•560 
•560 
■560 
■580 
•580 
■580 
■560 
■580 
•560 
•580 
•580 
•580 
•560 
•560 
•560 
•560 
■560 
-560 
•560 
■5tiO 
-560 
-580 
-560 
-560 
-580 
-580 
-560 



6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6760 
6790 
6600 
6810 
6820 
6830 
6b40 
6850 
6860 
6870 
6680 
6690 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6960 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 



■49- 



S/P — ERASE AND COPY IF REQUIRED 

IF COPY FLAG IS ON STRUCTURE 
(0) IS COPIED AND THE NAME OF 



IS 
IS 



LEFT AS OUTPUT (0) 



PUT ON THE PRINT 



THE COPY 

THE COPY 

LIST. 

IF ERASE FLAG IS ON THEN (0) IS 

ERASED AS A STRUCTURE OR ROUTNE 

DEPENDING ON THE DATA MODE FLAG 

AND INPUT (0) IS OUTPUT (0). 



CELL <0) 
CLEARED. 



IS NOT ERASED. IT IS 



IF THE COPY AND ERASE FLAGS ARE 
BOTH ON THEN THE COPY IS MADE 
AND THE ORGINAL IS THEN ERASED. 
IF NEITHER FLAG IS ON THEN 
INPUT (0) IS OUTPUT (0) . 
IN ANY CASE H5 IS SET +. 
THE COPY AND ERASE FLAGS ARE 
TURNED OFF. 



9-594+ 
9-595+ 
9-596+ 
9-598+ 
9-599+ 
9-600 



9-601 
9-602 



9-603 

9-604 



9-605 
9-606 



109-599 
109-598 

J128 

J182 

J128 
109-801 

J161 

J159 



01 
31 

019-404 
70 

019-405 
70J4 
10J3 
209-405 
019-411 
40H0 
709-601 

J120 

J72 
109-618 

J6 

J201 

J50 
119-407 

J61 
209-416 
10J3 
209-404 
11W0 

9-606 
11 wo 

J132 
709-603 

J136 

J138 
119-619 

J71 

10 
209-619 
019-405 
709-605 
10J3 
209-405 
11W0 

J120 
J72 
109-618 

11 WO 
J121 
J8 
J30 

40H0 
109-619 
J6 



9-589 







9-602 



J121 
J4 



9-604 



J30 
J4 



LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 



9-560 
9-580 
9-580 
9-580 
9-580 
9-560 
9-580 
9-560 
9-580 
9-580 
9-580 
9-560 
9-580 
9-600 
9-600 
S-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-6C0 
9-600 
9-600 
9-600 
9-600 
9-600 
9-6C0 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-600 
9-6C0 
9-600 
9-600 



7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
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9-607 



9-608 



9-609 



9-611 



9-612 



J10 


LIPL 9-600 


7740 


709-607 


LIPL 9-6C0 


7750 


J6 J8 


LIPL 9-6C0 


7760 


J42 


LIPL 9-600 


7770 


20W0 


LIPL 9-600 


7780 


109-619 


LIPL 9-600 


7790 


9-520 


LIPL 9-600 


7600 


60W1 


LIPL 9-600 


7810 


6CW2 


LIPL 9-600 


7820 


11WC 


LIPL 9-600 


7830 


Jll 


LIPL 9-600 


7840 


11W0 


LIPL 9-600 


7850 


J131 


LIPL 9-600 


7860 


709-608 


LIPL 9-600 


7870 


119-407 


LIPL 9-600 


7880 


1C9-408 


LIPL 9-600 


7890 


J65 


LIPL 9-600 


7900 


119-407 


LIPL 9-600 


7910 


11W1 


LIPL 9-600 


7920 


J65 


LIPL 9-600 


7930 


119-407 


LIPL 9-600 


7940 


J61 


LIPL 9-6C0 


7950 


209-407 


LIPL 9-600 


7960 


11 WO 


LIPL 9-600 


7970 


11W1 


LIPL 9-6o0 


7980 


J136 


LIPL 9-600 


7990 


J121 J32 


LIPL 9-600 


6000 


119-407 


LIPL 9-600 


601C 


109-409 


LIPL 9-600 


8020 


J65 


LIPL 9-60Q 


6030 


119-407 


LIPL 9-600 


8 040 


40H0 


LIPL 9-600 


6050 


11W1 


LIPL 9-600 


8060 


J65 


LIPL 9-6C0 


8070 


J61 


LIPL 9-600 


8080 


209-407 


LIPL 9-600 


8090 


12WC 


LIPL 9-600 


8100 


40H0 


LIPL 9-600 


8110 


J132 


LIPL 9-600 


8120 


709-611 


LIPL 9-600 


8130 


9-606 


LIPL 9-600 


6140 


21W1 


LIPL 9-600 


8150 


11 WO 


LIPL 9-600 


8160 


J60 


LIPL 9-6C0 


8170 


2 OWO 


LIPL 9-6C0 


8130 


709-612 


LIPL 9-600 


8190 


9-520 


LIPL 9-600 


8200 


40H0 


LIPL 9-6C0 


6210 


11W1 


LIPL 9-600 


6220 


J197 


LIPL 9-600 


8230 


20W1 9-609 


LIPL 9-600 


8240 


10 


LIPL 9-600 


8250 


11W1 


LIPL 9-600 


62 60 


J197 


LIPL 9-600 


6270 


119-407 


LIPL 9-600 


6280 


40H0 


LIPL 9-600 


8290 


109-410 


LIPL 9-600 


8300 


J65 


LIPL 9-6O0 


8310 


J60 


LIPL 9-600 


8320 


209-407 


LIPL 9-600 


8330 
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S/R--SET OCTAL DATA 

(0) BECOMES OCTAL DATA TERM AT 
1W25 AND TERMINATED SY . OK ) 
OR BLANK. IT LEAVES 10) . 
IT IS PUT ON THE PRINT LIST. 
IT ASSUMES 1W25 IS A /. 



S/R — SET NUMERIC DATA 

(0) BECOMES THE INTEGER OR 
FLOATING POINT DATA TERM AT 
1W25 AND TERMINATED 3Y , OR ) 
OR BLANK. IT LEAVES (0 ) . 
IT IS PUT ON THE PRINT LIST. 
IT ASSUMES 1*25 IS + OR -. 
THE NUMBER OUTPUT IS ALWAYS 
POSITIVE. 



11W2 


LIPL 


9-600 


8340 


J136 J32 


LIPL 


9-600 


8350 


9-618+ 


LIPL 


9-600 


8360 


9-619+ 


LIPL 


9-600 


8370 


9-620 109-901 


LIPL 


9-620 


8380 


J161 


LIPL 


9-620 


8390 


109-621 


LIPL 


9-620 


8400 


J6 


LIPL 


9-62U 


8410 


J121 


LIPL 


9-620 


8420 


9-54U 


LIPL 


9-62U 


8430 


J182 


LIPL 


9-620 


8440 


119-407 


LIPL 


9-620 


6450 


109-4G8 


LIPL 


9-620 


8460 


J65 


LIPL 


9-620 


8470 


40H0 


LIPL 


9-620 


8480 


119-407 


LIPL 


9-620 


8490 


J6 


LIPL 


9-620 


8500 


J65 


LIPL 


9-620 


8510 


119-407 


LIPL 


9-620 


8520 


J61 


LIPL 


9-620 


8530 


209-407 


LIPL 


9-620 


3540 


9-621+31 


LIPL 


9-620 


8550 


9-630 J124 


LIPL 


9-630 


8560 


209-649 


LIPL 


9-630 


8570 


119-407 


LIPL 


9-630 


8580 


109-408 


LIPL 


9-630 


8590 


J65 


LIPL 


9-630 


8600 


119-407 


LIPL 


9-630 


8610 


119-649 


LIPL 


9-630 


8620 


J65 


LIPL 


9-630 


8630 


119-407 


LIPL 


9-630 


8640 


J61 


LIPL 


9-630 


6650 


209-407 


LIPL 


9-630 


8660 


109-645 


LIPL 


9-630 


8670 


J124 


LIPL 


9-630 


8680 


10. 


LIPL 


9-63C 


8690 


J185 


LIPL 


9-630 


8700 


109-901 


LIPL 


9-630 


6710 


J161 


LIPL 


9-630 


87 20 


9-540 


LIPL 


9-630 


8730 


11W30 


LIPL 


9-630 


8740 


J116 


LIPL 


9-630 


8750 


709-631 


LIPL 


9-630 


8760 


119-649 J182 


LIPL 


9-630 


8770 


9-631 109-645 


LIPL 


9-630 


B780 


40W30 


LIPL 


9-630 


8790 


20W30 


LIPL 


9-630 


88 00 


109-646 


LIPL 


9-630 


8810 


J182 


LIPL 


9-630 


8820 


509-801 


LIPL 


9-630 


8830 


J161 


LIPL 


9-630 


5B40 


109-801 


LIPL 


9-630 


8650 


11W30 


LIPL 


9-630 


8860 


40H0 


LIPL 


9-630 


8870 


J110 


LIPL 


9-630 


8880 


30W30 


LIPL 


9-630 


8890 


11W30 


LIPL 


9-630 


8900 


4GH0 


LIPL 


9-630 


6910 


Jill 


LIPL 


9-630 


8920 
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S/R — SET ALPHANUMERIC DATA 

ASSUMES THERE IS A £ AT 1W25. 
IF THE NEXT £ OCGURES IN THE 
NEXT FIVE SPACES IT MAKES (0) 
A BCD DATA TERM. PUTS IT ON 
THE PRINT LIST. SETS H5 +. AND' 
LEAVES (0). 

OTHERWISE IT MAKES (0) THE HEAD 
OF A LIST OF LOCALLY NAMED 
BCD DATA TERMS. PUTS THE LIST 



AND DATA TERMS ON THE PRINT 
LIST. SETS H5 -. AND LEAVES (0) 
AND IT READS AND PRINTS CARDS 
IF REQUIRED. 



9-633 



9-645 
9-646 
9-647 

9-648 
9-649 
9-650 



509-645 LIPL 9-630 8930 

J182 LIPL 9-630 8940 

109-647 LIPL 9-630 8950 

109-648 LIPL 9-630 8960 

J110 LIPL 9-630 8970 

9-632 51W30 LIPL 9-630 8980 

109-901 LIPL 9-630 8990 

Jl'14 LIPL 9-630 9000 

70 9-633 LIPL 9-630 9010 

109-910 LIPL 9-630 9020 

109-648 LIPL 9-630 9030 

40H0 LIPL 9-630 9040 

J113 LIPL 9-630 9050 

509-901 LIPL 9-630 9060 

11W30 LIPL 9-630 9070 

AOHO LIPL 9-630 9080 

Jill 9-632 LIPL 9-630 9090 

109-648 LIPL 9-630 9100 

109-646 LIPL 9-630 9110 

119-649 J110 LIPL 9-630 9120 

+01 LIPL 9-630 9130 

01 LIPL 9-630 9140 

+110 LIPL 9-630 9150 

+110 LIPL 9-630 9160 

LIPL 9-630 9170 

109-801 LIPL 9-650 9180 

109-677 LIPL 9-650 9190 

J124 LIPL 9-650 920C 

10S LIPL 9-650 9210 

J185 LIPL 9-650 9220 

40H0 LIPL 9-650 9230 

J110 LIPL 9-650 9240 

709-653 LIPL 9-650 9250 

109-905 LIPL 9-650 9260 

J116 LIPL 9-650 9270 

70 9-654 LIPL 9-650 9280 

109-678 LIPL 9-650 9290 

J6 LIPL 9-650 9300 

J121 LIPL 9-650 9310 

109-677 LIPL 9-650 93Z0 

J122 LIPL 9-650 9330 

109-900 LIPL 9-650 9340 

J114 LIPL 9-650 9350 

709-651 LIPL 9-650 9360 

109-902 LIPL 9-650 9370 

J161 9-652 LIPL 9-650 9330 

9-651 109-677 LIPL 9-650 9390 

2CW30 LIPL 9-650 9400 

109-901 LIPL 9-650 9410 

J161 LIPL 9-650 9420 

J182 LIPL 9-650 9430 

109-901 LIPL 9-650 9440 

J161 LIPL 9-650 9450 

9-652 119-407 LIPL 9-650 9460 

109-408 LIPL 9-650 9470 

J65 LIPL 9-650 9480 

40H0 LIPL 9-650 9490 

119-407 LIPL 9-650 9500 

J6 LIPL 9-650 9510 

J65 LIPL 9-650 9520 
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9-653 
9-654 



9-655 



9-656 



9-657 



9-658 



9-659 



119-407 

J61 
209-407 

J8 
109-901 

J161 
109-676 

J6 

J121 
609-679 
119-407 
109-409 

J65 
119-407 
119-679 

J65 
119-437 

J61 
209-407 

9-675 
109-900 

J186 
709-656 
10$ 

J2 
70 

509-804 
109-901 

J161 

J186 
709-657 
10$ 

J2 
70 

509-803 
109-901 

J161 

J186 
709-658 
10* 

J2 
70 

5C9-8C2 
109-901 

J161 

J186 
709-659 
10$ 

J2 
70 

509-801 
109-901 
J161 
J186 
709-661 
10$ 

J2 
70 
509-900 



9-669 



9-663 



9-66^ 



9-665 



9-667 



LIPL 


9-6 5 


9530 


LIPL 


9-6 5 


9540 


LIPL 


9-650 


9550 


LIPL 


9-6 5 


9560 


LIPL 


9-650 


9570 


LIPL 


9-650 


9560 


LIPL 


9-650 


9590 


LIPL 


9-650 


9600 


LIPL 


9-650 


9610 


LIPL 


9-650 


9620 


LIPL 


9-650 


9630 


LIPL 


9-650 


9640 


LIPL 


9-650 


9650 


LIPL 


9-650 


9660 


LIPL 


9-650 


9670 


LIPL 


9-650 


9680 


LIPL 


9-650 


9690 


LIPL 


9-650 


9700 


LIPL 


9-650 


9710 


LIPL 


9-650 


9720 


LIPL 


9-650 


9730 


LIP'. 


9-650 


9740 


LIPL 


9-65C 


9750 


LIPL 


9-650 


9760 


LIPL 


9-650 


9770 


LIPL 


9-65C 


9780 


LIPL 


9-650 


9790 


LIPL 


9-650 


9800 


LIPL 


9-650 


9810 


LIPL 


9-650 


9820 


LIPL 


9-650 


9830 


LIPL 


9-650 


9640 


LIPL 


9-650 


9850 


LIPL 


9-650 


9360 


LIPL 


9-650 


9870 


LIPL 


9-650 


98 8 


LIPL 


9-650 


98 90 


LIPL 


9-650 


9900 


LIPL 


9-650 


9910 


LIPL 


9-650 


99 2 


LIPL 


9-650 


9930 


LIPL 


9-650 


9940 


LIPL 


9-650 


9950 


LIPL 


9-650 


9960 


LIPL 


9-650 


9970 


LIPL 


9-650 


9980 


LIPL 


9-650 


9990 


LIPL 


9-650 


0000 


LIPL 


9-650 


0G10 


LIPL 


9-650 


0020 


LIPL 


9-650 


0030 


LIPL 


9-650 


0040 


LIPL 


9-650 


0C50 


LIPL 


9-650 


0060 


LIPL 


9-650 


0C70 


LIPL 


9-650 


0080 


LIPL 


9-650 


0090 


LIPL 


9-650 


0100 


LIPL 


9-650 


0110 
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9-661 109-804 


LIPL 


9-650 


0120 


J161 


LIPL 


9-650 


0130 


109-9C5 


LIPL 


9-650 


0140 


2 0W3 


LIPL 


9-650 


0150 


9-520 


LIPL 


9-650 


0160 


40H0 


LIPL 


9-650 


0170 


119-679 


LIPL 


9-650 


0180 


J197 


LIPL 


9-650 


0190 


209-679 


LIPL 


9-650 


0200 


109-678 


LIPL 


9-650 


0210 


9-520 


LIPL 


9-650 


0220 


J136 


LIPL 


9-650 


0230 


J121 


LIPL 


9-650 


0240 


J182 


LIPL 


9-650 


0250 


219-679 


LIPL 


9-650 


0260 


119-407 


LIPL 


9-650 


0270 


119-679 


LIPL 


9-65G 


0260 


J65 


LIPL 


9-650 


0290 


119-407 


LIPL 


9-650 


0300 


109-408 


LIPL 


9-650 


0310 


J65 


LIPL 


9-650 


0320 


119-407 


LIPL 


9-650 


0330 


129-679 


LIPL 


9-650 


0340 


J65 


LIPL 


9-650 


0350 


119-407 


LIPL 


9-650 


0360 


J61 


LIPL 


9-650 


0370 


209-407 


LIPL 


9-650 


0380 


J161 


9-655 LIPL 


9-650 


0390 


9-663 509-901 


9-666 LIPL 


9-650 


0400 


9-664 509-902 


9-66B LIPL 


9-650 


0410 


9-665 509-903 


9-666 LIPL 


9-650 


0420 


9-667 509-904 


9-666 LIPL 


9-650 


043C 


9-668 60W30 


LIPL 


9-650 


0440 


11W2 5 


LIPL 


9-650 


0450 


40H0 


LIPL 


9-65C 


0460 


Jill 


LIPL 


9-650 


0470 


J8 


LIPL 


9-650 


0480 


9-520 


LIPL 


9-650 


0490 


4CH0 


LIPL 


9-650 


0500 


119-679 


LIPL 


9-650 


0510 


J197 


LIPL 


9-650 


0520 


209-679 


LIPL 


9-650 


0530 


109-678 


LIPL 


9-650 


0540 


9-520 


LIPL 


9-650 


0550 


J136 


LIPL 


9-650 


0560 


J121 


LIPL 


9-650 


0570 


J182 


LIPL 


9-650 


0580 


219-679 


LIPL 


9-650 


0590 


119-407 


LIPL 


9-650 


0600 


119-679 


LIPL 


9-650 


0610 


J65 


LIPL 


9-650 


0620 


119-407 


LIPL 


9-650 


C630 


109-408 


LIPL 


9-650 


0640 


J65 


LIPL 


9-650 


0650 


119-407 


LIPL 


9-650 


0660 


129-679 


LIPL 


9-650 


0670 


J65 


LIPL 


9-6 50 


0680 


9-669 109-901 


LIPL 


9-65C 


0690 


J161 


LIPL 


9-650 


0700 


119-407 


LIPL 


9-650 


0710 
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S/R — READ AND PRINT CARDS 

CLEARS PRINT LINE AND READS A 
CARD. IF THERE IS NO CARD 
PRESENT IT PRINTS 'ERROR— NO 
CARD' AND IT THEN DOES A J7. 
IF THERE IS A CARD IT POTS 
INTO THE PRINT LINE AT COLUMN 
110 THE WORD 'CARD' FOLLOWED 
BY AN INTEGER CARD COUNT. 
IT THEN PRINTS THE PRINT LINE. 
IT ADDS THE SYMBOL 'NEW CARD' 
TO THE PRINT LIST FOLLOWED BY 
THE CARD NUMBER WHERE THt CARD 
NUMBER IS A LOCAL DATA TERM. 
1W25 IS SET TO ONE. 



109-410 

J65 
119-407 

J61 
209-407 
10 
119-679 

J197 
9-675 11W25 

109-981 

J115 
709-680 
9-676+ C 
9-677+01 
9-678+21 
9-679+ 
9-680 J154 

J180 
709-681 
109-688 

J160 
109-689 

J157 
109-687 

J16U 
109-413 

J125 

J157 

J155 
119-407 
109-412 

J65 
119-407 
109-413 

J120 

J65 
119-407 

J61 
209-407 
109-688 
11W25 

J121 
509-690 

J157 
109-690 

J157 
11W21 
11W2 5 

J121 
9-681 J154 

J155 
109-220 
10J157 

J100 

J155 
9-687+01 
9-668+C1 
9-689+21CARD 
9-69C+21 



J3 








J8 



J7 



115 
109 



LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 



-650 
-650 
-650 
-650 
-650 
-650 
-650 
-650 
-650 
-650 
-65C 
-650 
-650 
-650 
-650 
-650 
-680 
-680 
-680 
-660 
-660 
-680 
-680 
-660 
-680 
-680 
-680 
-660 
-680 
-660 
-680 
-680 
-680 
-680 
-680 
-680 
-680 
-660 
-680 
-680 
-660 
-660 
-660 
-6o0 
-680 
-660 
-660 
-680 
-66C 
-680 
-68C 
-660 
-660 
-660 
-680 
-660 
-680 
-660 
-680 



0720 
0730 
0740 
0750 
0760 
0770 
0760 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0630 
0890 
0900 
0910 
0920 
0930 
0940 
095C 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
104C 
1050 
1C60 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
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S/R--PRIMT AND ERASE PRINT LIST 



THE PAGE IS DIVIDED INTO 
FOUR VERTICAL STRIPS, EACH 
28 COLUMNS WIDE. 

A LIST IS PRINTED DO'.mN A STRIP. 
THE HIGHEST LEVEL LISTS ARE 
PRINTED DOWN THE LEFT STRIP. 
THERE SU3LISTS ARE INTERPOLATED 
AND PRINTED IN THE STRIP TO THE 
RIGHT OF THE SUPER-LIST. 
ALL LISTS OF DEPTH THREE OR 
GREATER ARE PRINTED IN ThE 
THIRD STRIP FROM THE LEFT. 
LISTS AT THE HIGHEST LEVEL AND 
LISTS OF DEPTH THREE OR 
GREATER ARE SEPERATED BY 
PRINTING ONE BLANK LINE BEFORE 
AND AFTER. 

DATA TERMS AT THE HIGHEST LEVEL 
ARE PRINTED IN THE LEFT STRIP. 
IF A DATA TERM IS NAMED IN A 
SU3LIST IT IS PRINTED ON THE 
SAME LINE AS THE CELL THAT 
NAMES IT AND IN THE NEXT STRIP 
TO THE LEFT OF THE CELL THAT 
NAMES IT. 

THE NAME GOES IN COLUMN 1» 
P IN COLUMN 8, Q IN 10, SYMts IN 
12, AND LINK IN 16-22, MOD 28. 
CARD NUMBLRS ARE PRINTED AS 
•CARD N' BEGINNING AT COLUMN 
111. THEY ARE PRINTED ON THE 
SAME LINE AS THE FIRST THING 
ASSEMBLED BY THAT CARD. IF A 
CARD CAUSES NOTHING TO BE 
ASSEM3LED (AS FOR EXAMPLE A 
CARD WITH NOTHING BUT COMMENTS) 
THAT CARD NUKBE.R IS NOT PRINTED 
AT ALL. 

THE HIGHEST LEVEL CELLS ON TmE 
PRINT LIST THAT ARE NOT DATA 
TERMS ARE NOT PART OF ANY LIST 
AND HENCE ARE ERASED. THE CARD 
NUMBERS IN THE PRINT LIST ARE 
ALSO ERASED. WHEN DONE, THE 
PRINT LIST IS ERASED AND THE 
NAME OF THE PRINT LIST IS PJT 
IN THE 'LAST CELL OF PRINT LIST 
• WORKING CELL. 
NO EXTERNAL SUBROUTINES ARE 
USED. , EXCEPT 9-760 IF NO 
LISTING IS REQUIRED. 



9- 


"7 A *-\ 


J154 






LIPL 


9-700 


1310 






019-417 






LIPL 


9-700 


1320 






709-780 






LIPL 


9-700 


1330 






109-406 






LIPL 


9-7C0 


1340 


9- 


-701 


J60 






LIPL 


9-700 


1350 






70 


9- 


-702 


LIPL 


9-700 


1360 






509-^06 






LIPL 


9-700 


1370 






609-407 






LIPL 


9-700 


1380 






J75 


J71 


LIPL 


9-700 


1390 


9- 


-702 


12HC 






LIPL 


9-7C0 


1400 






109-705 






LIPL 


9-700 


1410 






J6 






LIPL 


9-700 


1420 






J10 






LIPL 


9-700 


1430 






709-703 






LIPL 


9-700 


1440 






Jl 


9- 


-701 


LIPL 


9-7C0 


1450 


9- 


-703 


12H0 






LIPL 


9-700 


1460 






J9 


9- 


-701 


LIPL 


9-70C 


1470 


9- 


-705 


+ 9-706 


( 


"> 


LIPL 


9-700 


1480 


9- 


-706+ 






LIPL 


9-700 


1490 






+ 9-408 






LIPL 


9-700 


150 




• 


+■ 9-711 






LIPL 


9-700 


1510 




■ 


+ 9-409 






LIPL 


9-700 


1520 




• 


+ 9-729 






LIPL 


9-700 


1530 




• 


+ 9-412 






LIPL 


9-700 


1540 




■ 


¥ 9-707 





LIPL 


9-70C 


1550 


9- 


-707 


109-746 






LIPL 


9-700 


1560 






J160 






LIPL 


9-700 


1570 






109-747 






LIPL 


9-700 


1580 






J157 






LIPL 


9-700 


1590 






109-901 






LIPL 


9-700 


1600 






J161 






LIPL 


9-700 


1610 






J60 






LIPL 


9-700 


1620 






12H0 






LIPL 


9-700 


1630 






J157 






LIPL 


9-7C0 


1640 






12HC 


J9 


LIPL 


9-700 


1650 


9- 


-711 


J60 






LIPL 


9-700 


1660 






109-901 






LIPL 


9-700 


1670 






J160 






LIPL 


9-7C0 


1680 






12H0 






LIPL 


9-700 


1690 






J156 






LIPL 


9-7C0 


17C0 






109-906 






LIPL 


9-700 


1710 






J160 






LIPL 


9-700 


1720 






12HC 






LIPL 


9-700 


1730 






109-901 






LIPL 


9-700 


1740 






J127 






LIPL 


9-700 


1750 






70 


9- 


-712 


LIPL 


9-700 


1760 






12HU 






LIPL 


9-700 


1770 






109-741 






LIPL 


9-700 


1780 






J127 






LIPL 


9-700 


1790 






70 


9- 


-713 


LIPL 


9-7C0 


1800 






12H0 






LIPL 


9-700 


1810 






109-742 






LIPL 


9-700 


1320 






J127 






LIPL 


9-700 


1830 






70 


9- 


•714 


LIPL 


9-700 


1640 






109-745 


9- 


■715 


LIPL 


9-700 


1850 


9- 


•712 


109-742 


9- 


•715 


LIPL 


9-700 


1860 


9- 


•713 


109-743 


9- 


■713 


LIPL 


9-700 


1870 


9- 


•714 


109-744 


9- 


•715 


LIPL 


9-700 


1880 


9- 


•715 


J157 






LIPL 


9-700 


1890 






109-922 






LIPL 


9-700 


1900 
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* 

* 
* 
* 

* 
* 
* 

* 
* 
* 
* 
* 
* 

* 
* 
* 
* 

# 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 
* 

* 
* 
* 
* 
* 
* 



PRINT LIST FORMAT 



AS EACh CELL IS ASSEMBLED 
ITS NAME IS PUT OlN THE PRINT 
LIST 9-406. 

WHEN A DATA TERM IS ASSEM- 
BLED, THE SYMBOL 9-408 IS PUT 
ON THE PRINT LIST JUST BEFORE 
THE NAME OF THE DATA TERM. 
THIS IS NECESSARY SINCE THE 
LISTING ROUTINE 9-7GC MUST 
INTERPRETE A DATA TERM IN A 
DIFFERENT MANNER THAN A LIST 
CELL. 

WHEN A NEW LIST IS BtiGUN, 
THE EXECUTIVE ROUTINE PUTS 
THE SYMBOL 9-409 ON THE PRINT 
LIST JUST BEFORE THE FIRST 
CELL OF THE LIST. WHEN A LIST 
IS TERMINATED. THE EXECUTIVE 
ROUTINE PUTS THE SYMBOL 9-410 
JUST AFTER THE LAST CELL OF 
THE LIST. 

WHEN A CARD IS READ BY 
ROUTINE 9-680 (READ AND PRINT 
A CARD), THIS ROUTINE PUTS THE 
SYMBOL 9-412 ON THE END OF THE 
PRINT LIST FOLLOWED BY A 
LOCALLY NAMED COPY OF Tnc 
INTEGER DATA TERM CARD COUNT, 
9-413. THE LISTING ROUTINE 
9-700 MUST OF COURSE ERASE 
THIS DATA TERM. 

THE EXECUTIVE ROUTINE 
OPERATES AS IF THE ENTIRE READ 
GROUP WAS A LIST TERMINATED BY 
A 'ND« OR 'GT' INSTEAD OK A 
')'. AS A RESULT UNPARcNTH- 
IZED SYMBOLS (FOR EXAMPLE UN- 
PARENTHIZED LIST NAMES, DATA 
TERM NAMES, AND NEUMONIC ASSI- 
GNMENTS) ARE ASSEMBLED INTO 
A LIST. THEREFORE THE LISTING 
PROGRAM 9-7'JC (AND THE NO-LIST 
SUBROUTINE 9-783) HAS THE 
RESPONSIBILITY OF RETURNING 
THE CELLS OF THIS LIST TO 
AVAIBLE SPACE. THESE CtLLS 
ARE IDENTIFIED bY THE FACT 
THAT THEY OCCURE ON THE PRINT 
LIST WHERE THE LEVEL COUNT IS 
ZERO. THE LEVEL COUNT IS 
INIATIALLY ZERO, THE SYMBOL 
9-409 (BEGINNING OF SUBLlST) 



* 

* 

* 
* 
* 

* 
# 
* 
* 

* 
* 

* 

* 

* 
* 

# 

* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 

* 
* 



J160 
12H3 
J159 
J155 
9-716 J6C 
12H0 
109-717 
J6 
J10 
70 
109-9C1 

J160 
12 HO 

J156 
109-908 

J160 
12H0 
J190 
J156 
109-910 

J160 

12HC 

J191 

J156 

109-912 

J160 

12H0 

J192 

J156 

109-918 

J160 
12HC 
J193 
J156 
40HC 

J81 
109-408 

J2 
70 

J155 
J154 
9-717+ 9-716 
9-716+ 

+ 9-4U8 
+ 9-721 
+ 9-409 
9-719+ 9-727 
+ 9-410 
+ JC 
+ 9-412 
+ 9-726 
9-720 J60 
9-721 J60 

109-929 

J160 
12H0 

J156 
109-936 
J160 



LIPL 
LIPL 
LIPL 

J154 LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 

Jl LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 

9-720 LIPL 
LIPL 

9-716 LIPL 
LIPL 
LIPL 
L IPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 



9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-7C0 

9-700 

9-7CC 

9-7C0 

9-700 

9-700 

9-7GC 

9-700 

9-700 

9-7U0 

9-700 

9-700 

9-700 

9-7GC 

9-700 

9-7C0 

9-700 

9-700 

9-7CO 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-7C0 

9-70C 

9-70C 

9-7C0 

9-700 

9-700 

9-700 

9-7vC 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-700 

9-7^0 

9-700 

9-700 

9-70 

9-70C 

9-700 



1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2C4C 

2050 

2C60 

2070 

2080 

2390 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 
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* ADDS ONE TO THE LEVEL COUNT * 

* AND THE SYMBOL 9-4-10 (END OF * 

* SUBLIST) SUBTRACTS ONE FROM * 

* THE LEVEL COUNT. * 
#**♦*********#****#*##***##*#*■***# 





12H0 






LIPL 


9-700 


2500 




109-901 






LIPL 


9-700 


2510 




J127 






LIPL 


9-700 


2520 




70 


9- 


-722 


LIPL 


9-7GC 


2530 




12H0 






LIPL 


9-700 


2540 




109-741 






LIPL 


9-700 


2550 




J127 






LIPL 


9-700 


2560 




70 


9- 


-723 


LIPL 


9-7UU 


2570 




12HC 






LIPL 


9-700 


2580 




1 09-742 






LIPL 


9-700 


259C 




J127 






LIPL 


9-700 


2600 




70 


9- 


-724 


LIPL 


9-700 


2610 




109-745 


9- 


-725 


LIPL 


9-700 


2620 


9-722 


1U9-742 


9- 


-725 


LIPL 


9-7U0 


2630 


9-723 


109-743 


9- 


-725 


LIPL 


9-700 


2640 


9-724- 


109-744 


9- 


-725 


LIPL 


9-700 


2650 


9-725 


J157 






LIPL 


9-700 


2660 




109-950 






LIPL 


9-700 


2670 




J160 






LIPL 


9-700 


2680 




12HU 






LIPL 


9-70U 


2690 




J159 






LIPL 


9-700 


2700 




J155 






LI°L 


9-700 


2710 




J154 


9- 


•716 


LIPL 


9-700 


2720 


9-726 


109-748 






LIPL 


9-700 


2730 




11W25 






LIPL 


9-700 


2740 




J121 






LIPL 


9-700 


2750 




509-747 






LIPL 


9-700 


2760 




J157 






LIPL 


9-700 


2770 




109-901 






LIPL 


9-700 


2780 




J161 






LIPL 


9-7C0 


2790 




J60 






LIPL 


9-700 


2800 




12H0 






LIPL 


9-700 


2810 




J157 






LIPL 


9-700 


2820 




12H0 






LIPL 


9-700 


2830 




J9 


9- 


•716 


LIPL 


9-700 


2840 


9-727 


40W21 






LIPL 


9-700 


2850 




109-929 






LIPL 


9-700 


2860 




20W21 






LIPL 


9-700 


2870 




109-726 






LIPL 


9-700 


2880 




209-719 






LIPL 


9-700 


2890 




9-716 






LIPL 


9-700 


2900 




30W21 






LIPL 


9-700 


2910 




109-727 






LIPL 


9-7LO 


2920 




209-719 


9- 


•716 


LIPL 


9-7CC 


2930 


9-728 


40*21 






LIPL 


9-7oC 


2940 




109-957 






LIPL 


9-700 


2950 




20 'A 1 21 






LIPL 


9-7J0 


2960 




109-731 






LIPL 


9-700 


2970 




209-719 






LIPL 


9-700 


2980 




9-716 






LIPL 


9-70C 


2990 




3CW21 






LIPL 


9-700 


30C0 




109-7 2 8 






LIPL 


9-700 


3010 




209-719 


9- 


•716 


LIPL 


9-7C0 


3020 


9-729 


J155 






LIPL 


9-700 


3030 




J154 






LIPL 


9-700 


3040 




9-716 






LIPL 


9-700 


3050 




J153 


Jl 


.54 


LIPL 


9-700 


3060 


9-731 


J155 






LIPL 


9-700 


3C70 




J154 






LIPL 


9-700 


3080 




9-716 






LIPL 


9-700 


3090 
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J155 

J154 9-716 

9-741+11 
9-742+210 1 
9-743+211 1 
9-744+212 1 
9-745+213 1 
9-746 + 01 U0 

9-747+21CARD 
9-748+01 111 

S/R--SKIP COMS OR SET COPY 9-750 9-510 

709-751 

IF 1W25 + 1 IS A • SET COPY 11W9 

FLAG AND FIND THE NEXT CHARACT 10' 

ER AFTER 1W25 + 1. J2 

OTHERWISE SKIP OVER THE 709-752 

COMMENTS. READING CARDS IF 10J4 

NECESSARY, AND STOP AT THE 209-404 9-510 

FIRST NON-BLANK CHARACTER AFTER 9-751 11W9 
THE NEXT . 10' 

J2 

7 9-510 
9-752 11W25 

10' 
J185 
J8 

70 9-510 
9-6S0 
J186 

709-752 

10' 
J2 

709-752 9-510 
S/R — ADD (0) TO LIST 9-760 01W1 

70 9-761 
IF THE CURRENT CELL IS NON- 9-520 

EMPTV A NEW CURRENT CELL IS 40HC 

CREATED AND THE NAME OF THIS 11VC 

NEW CELL IS MADE THE LINK OF Jl*7 

THE OLD CELL. 20W0 9-762 

IF THE CURRENT CELL IS EMPTY 9-761 10J3 
THE EMPTY FLAG IS REVERSED. 20W1 

IN ANY CASE THE CURRENT CELL IS 9-762 119-4U7 
PUT ON THE PRINT LIST AND IF P 11WC 

AND/OR Q IS NOT NINE THEY ARE J65 

RESET TO NINE AFTER THE CURRENT 119-407 

CELL'S P AND Q ARE SET. IF P J60 

AND WERE NINE TO BEGIN -WITH 209-407 

21 WO 
THEN (0) IS STORED WITH ITS 11W3 

ORGINAL SYMBOL TYPE. UNLESS 10 9 

DATA MODE FLAG IS -. IN J2 

WHICH CASE G IS SET ZERO. 70 9-763 

11W3 

11WC 
J195 

10 9 

20W3 

11W2 



LIPL 


9- 


-70 J 


3100 


LIPL 


9- 


-700 


3110 


LIPL 


9- 


-700 


3120 


LIPL 


9- 


-70 


3130 


LIPL 


9- 


-700 


3140 


LIPL 


9- 


-700 


3150 


LIPL 


9- 


-700 


3160 


LIPL 


9- 


-700 


3170 


LIPL 


9- 


-700 


3180 


LIPL 


9- 


-700 


3190 


LIPL 


9- 


-750 


3200 


LIPL 


9- 


-750 


3210 


LIPL 


9- 


-750 


3220 


LIPL 


9- 


-750 


3230 


LIPL 


9- 


-750 


3240 


LIPL 


9- 


-750 


3250 


LIPL 


9- 


-750 


3260 


LIPL 


9- 


-75C 


327C 


LIPL 


9- 


-750 


3280 


LIPL 


9- 


-750 


3290 


LIPL 


9- 


-750 


3300 


LIPL 


9- 


-750 


3310 


LIPL 


9- 


-750 


3320 


LIPL 


9- 


-750 


3330 


LIPL 


9- 


-750 


3340 


LIPL 


9- 


-750 


3350 


LIPL 


9- 


-750 


3360 


LIPL 


9- 


-75C 


3370 


LIPL 


9- 


-750 


3360 


LIPL 


9- 


-750 


3390 


LIPL 


9- 


-750 


3400 


LIPL 


9- 


-750 


3410 


LIPL 


9- 


-750 


3420 


LIPL 


9- 


-760 


3430 


LIPL 


9- 


-760 


3440 


LIPL 


9- 


-760 


3450 


LIPL 


9- 


-760 


3460 


LIPL 


9- 


-760 


3470 


LIPL 


9- 


-760 


3480 


LIPL 


9- 


-760 


3490 


LIPL 


9- 


-760 


3 5 00 


LIPL 


9- 


-760 


3510 


LIPL 


9- 


-760 


3520 


LIPL 


9- 


-7c0 


3530 


LIPL 


9- 


-760 


3540 


LIPL 


9- 


-760 


3550 


LIPL 


9- 


-760 


3560 


LIPL 


9- 


-760 


3570 


LIPL 


9- 


-760 


3 580 


LIPL 


9- 


-760 


3590 


LIPL 


9- 


-760 


3600 


LIPL 


9- 


-7bC 


3610 


LIPL 


9- 


-760 


3620 


LIPL 


9- 


-760 


3630 


LIPL 


9- 


-760 


36 40 


LIPL 


9- 


-760 


3650 


LIPL 


9- 


-760 


3660 


LIPL 


9- 


-760 


3670 


LIPL 


9- 


-760 


366C 



•60- 



S/R — ADD AN EMPTY CELL TO LIST 
IF CURRENT CELL IS EMPTY DO 
NOTHING. 

OTHERWISE A NEW CELL IS CREATED 
AND THE NAME OF THIS CELL IS 
MADE THE LINK OF THE OLD CELL 



AND THE EMPTY FLAG IS REVERSED. 
S/R — ERASE PRINT LIST 



9-763 



9-770 



10 

70 
11 
11 

10 
20 
01 
70 
10 
11 
01 
70 

40 
11 

10 
20 
20 
10 
10 

10 
20 

70 
50 
60 



9-782 12 

10 



70 

9-783 12 

01 
9-785+ 
9-786+ 

+ 
+ 
+ 
+ 
+ 
+ 
+ 



9-780 



9-781 



9-787 



9-78 
S/R — PRINT NEUMGNIC. INTERNAL TALiLE 9-79 



8 



12 

10 

01 
70 
10 

20 
10 
10 



9 
J2 

W2 
WC 
J194 

9 
W2 
9-411 


WC 
Wl 

9-520 

HO 

WC 

J197 

J4 

Wl 

WC 

9-406 

J9 

J50 

J4 

9-417 

J60 

9-406 

9-407 

J75 

J71 

HO 

9-785 

J6 

J10 

9-783 

Jl 

HO 

. < r\ 

9-786 

C 
9-408 
J60 
9-409 
9-788 
9-410 
J30 
9-412 
9-787 
J60 
HO 
J8 

J154 
9-418 
9-791 
9-795 
9-418 
9-200 
J157 




J195 





9-782 



J3C 



9-781 

9-781 
C 



J9 
J50 



LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 
LIPL 



9-760 
9-760 
9-760 
9-760 
9-760 
9-760 
9-76C 
9-760 
9-760 
9-760 
9-760 
9-760 
9-770 
9-770 
9-77U 
9-770 
9-770 
9-770 
9-770 
9-770 
9-770 
9-780 
9-760 
9-760 
9-760 
9-780 
9-780 
9-780 
9-780 
9-780 
9-760 
9-780 
9-780 
9-760 
9-760 
9-780 
9-780 
9-780 
9-780 
9-780 
9-780 
9-760 
9-760 
9-760 
9-780 
9-760 
9-760 
9-780 
9-760 
9-780 
9-760 
9-780 
9-780 
9-790 
9-79C 
9-790 
9-790 
9-790 
9-790 
9-790 



3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3760 
3790 
3600 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
41C0 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
42 70 
4280 



-61- 







J 1 ^ 


LIPL 


9-790 


4290 


9- 


-791 


019-419 


LIPL 


9-790 


4300 






709-792 


LIPL 


9-790 


4310 






109-797 


LIPL 


9-790 


4320 






209-419 


LIPL 


9-790 


4330 






109-960 


LIPL 


9-790 


4340 






J160 


LIPL 


9-790 


4350 






109-210 


LIPL 


9-79G 


4360 






10J157 


LIPL 


9-790 


4370 






J100 


9-793 LIPL 


9-790 


4380 


9- 


-792 


10J0 


LIPL 


9-790 


4390 






209-419 


LIPL 


9-790 


4400 


9- 


-793 


119-403 


LIPL 


9-790 


4410 






109-400 


LIPL 


9-790 


4420 






J51 


LIPL 


9-790 


4430 






J155 


LIPL 


9-790 


4440 






J154 


LIPL 


9-790 


4450 


9- 


-794 


S19-416 


LIPL 


9-790 


4460 






019-419 


LIPL 


9-790 


4470 






70J31 


LIPL 


9-790 


4480 






J155 


LIPL 


9-790 


4490 






J154 


9-794 LIPL 


9-790 


4500 


9- 


-795 


11 WO 


LIPL 


9-79C 


4510 






J81 


LIPL 


9-790 


4520 






709-796 


LIPL 


9-790 


4530 






J157 


LIPL 


9-790 


4540 






109-908 


LIPL 


9-793 


4550 






J160 


LIPL 


9-790 


4560 






11 WO 


LIPL 


9-790 


4570 






J82 


LIPL 


9-790 


4580 






J156 


LIPL 


9-790 


4590 






11W0 


LIPL 


9-790 


4600 






J60 


LIPL 


9-790 


461C 






J60 


LIPL 


9-790 


4620 






20 WO 


LIPL 


9-790 


4630 


9- 


-796 


10J3 


LIPL 


9-7S0 


4640 






209-418 


LIPL 


9-790 


4650 


9- 


-797 


109-960 


LIPL 


9-790 


4660 






J160 


LIPL 


9-790 


4670 






11W1 


LIPL 


9-790 


4680 






J81 


LIPL 


9-790 


4690 






7G9-798 


LIPL 


9-790 


4700 






109-799 


LIPL 


9-790 


4710 






J157 


LIPL 


9-790 


4720 






J156 


LIPL 


9-790 


4730 






109-968 


LIPL 


9-790 


4740 






J160 


LIPL 


9-790 


4750 






11W1 


LIPL 


9-790 


4760 






J82 


LIPL 


9-790 


4770 






J156 


LIPL 


9-790 


4780 






11W1 


LIPL 


9-790 


479C 






J60 


LIPL 


9-790 


4800 






J60 


LIPL 


9-790 


4810 






20W1 


LIPL 


9-790 


4820 


9- 


•798 


10J0 


LIPL 


9-790 


4830 






209-419 


J4 LIPL 


9-790 


4840 


9- 


•799+218- 


LIPL 


9-790 


4850 


9801 - 


-01 


01 LIPL 


C0NSTANTS4860 


9802 - 


-01 


02 LIPL 


CONSTANTS4870 



-62- 



98C3 -01 03 LIPL CONSTANTS4880 

9804 -01 04 LIPL CONSTANTS4690 

9900 +01 00 LtPL CONSTANTS4900 

9901 +01 01 LIPL CONSTANTS4910 

9902 +01 02 LIPL CONSTANTS4920 

9903 +01 03 LIPL CONSTANTS4930 

9904 +01 04 LIPL CONSTANT54940 

9905 +01 05 LIPL CONSTANTS4950 
9908 +01 08 LIPL CONSTANTS4960 
9910 +01 10 LIPL CONSTANTS4970 
9912 +01 12 LIPL CONSTANTS4980 
9918 +01 16 LIPL CONSTANTS4990 
9922 +01 22 LIPL CON3TANTS5000 
9929 +01 29 LIPL CONSTANTS501C 
9936 +01 36 LIPL CONSTANTS5020 
9950 +01 50 LIPL CONSTANTS5030 
9957 +01 57 LIPL CONSTANTS5040 
9960 +01 60 LIPL CONSTANTS5050 
9968 +01 66 LIPL CONSTANT65060 
9981 +01 81 LIPL CCNSTANTS5070 



1507 



